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Vorwort 


Diskette einlegen, Programm laden - und spielen. Dies ist 
das, was man mit den meisten gelieferten Spielprogrammen 
machen kann. Wenn sie nur im Buch stehen, muß man sie auch 
erst noch abtippen. 

Spielen können Sie mit den im Buch aufgeführten Programmen 
in der Form wie sie dargestellt sind natürlich auch. Wir 
wollten jedoch noch etwas weiter gehen: Spielend program¬ 
mieren lernen. 

Im Gegensatz zur Hardware, ist Software sehr dynamisch. 
Man kann sie immer wieder verbessern. Bei den aufgeführten 
Spielen werden jeweils immer wieder Tips gegeben, wo und 
wie sie zu verbessern sind. Die Durchführung ist dann die 
Übung für SIE. Diese Programmänderungen gehen vom einfa¬ 
chen Umschreiben häufig auftretender Stellen in Unterpro¬ 
grammen über optische Änderungen der Spielanzeigen, bishin 
zu tiefgreifenden Veränderungen. 

Zu einem Teil werden Sie die Spiele schon kennen, und wenn 
Sie die Vorgehensweise bei der Erstellung eines Spieles 
einmal gesehen haben, werden Sie sicher in der Lage sein, 
ein Spiel, das Sie interessiert, jedoch als Brettspiel 
oder ähnliches vorliegt, in ein Computerprogramm umzu¬ 
setzen. 

Wir wünschen Ihnen viel Spaß beim Spielen und Programmie¬ 
ren ! 


München, im Januar 1984 



Hans Lorenz Schneider 


Werner Eberl 
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Einleitung 


Wie im Vorwort bereits angedeutet, sollen in diesem Buch 
Spiele vorgestellt werden, die nicht nur gespielt werden 
können, sondern die auch von Ihnen weiter verbessert wer¬ 
den sollen. Dazu sind alle Programme ausführlich beschrie¬ 
ben. 

Zu jedem Programm wird zunächst die Spielanleitung vorge¬ 
stellt, damit Sie sich einen Eindruck machen können. Was 
Sie dann verbessern können, wird Ihnen sicherlich schon 
selbst auffallen, ansonsten haben wir unter den Unterkapi¬ 
teln 'Änderungen und Ergänzungen' noch einige Tips gege¬ 
ben. Der Spielanleitung folgt das Programm-L isting und 
diesem wiederum die nähere Programmbeschreibung. Den Ab¬ 
schluß eines jeden Kapitels bildet die Variablen-über- 
sicht, in der alle verwendeten Variablen und Unterpro¬ 
grammaufrufe übersichtlich (in alphabetischer Reihenfolge) 
zusammengefaßt sind. 

Das erste große Kapitel ist den Denkspielen gewidmet. Hier 
wurden zwei bekannte Spiele ausgewählt, die es nicht nur 
auf dem Computer gibt. Das nächste Kapitel wurde den 
Wirtsschaftsspielen gewidmet, wobei wir ein Boersenspiel 
ausgewählt haben und ein Spiel, mit dem ein Wirtschafts¬ 
unternehmen möglichst getreu nachgebildet wird. 

Die nächsten beiden Kapiteln sind den Karten- und Glücks¬ 
spielen Vorbehalten. Den Kartenspielen wurde ein eigenes 
Kapitel gewidmet, da die Unterprogramme zum Anzeigen der 
Karten in beiden Programmen einheitlich verwendet werden 
und auch in weiteren Spielen bei Ihnen Verwendung finden 
können. 

Das letzte Kapitel befaßt sich nicht mit eigentlichen 
Spielen, sondern bringt zunächst ein Spielhilfsmittel: 
NOTIZBLOCK ersetzt den Notizblock für Skat, Canasta und 
Doppelkopf. Das letzte Programm paßt eigentlich nicht so 
recht in den Bereich Spiele hinein, da es eine durchaus 
ernsthafte Sache darstellt: der Biorhythmus. Das Programm 
wurde hier aufgenommen, weil es im Schwierigkeitsgrad ana¬ 
log zu den anderen Programmen liegt. 
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1. Denkspiele 


Zu Beginn wollen wir uns einer Spielkategorie widmen, für 
die ein Computer geradezu prädestiniert ist: Denkspiele. 


1.1 THINK 


Als erstes wollen wir Ihnen ein kurzes Spiel vorstellen, 
das Sie bestimmt unter der Bezeichnung Master Mind oder 
Superhirn schon kennen. 

Im Gegensatz zu den anderen Spielen, wo Farbzusammenstel¬ 
lungen geraten werden müssen, wollen wir uns hier auf Zif¬ 
fern beschränken. 


Spielanleitung 


Wenn Sie das Spiel mit 

LOAD"THINK”,8 (RETURN-Taste) 
geladen haben und mit 

R-U-N (RETURN-Taste) 

gestartet haben, erscheint eine kurze Bedienungsanleitung 
bereits am Bildschirm. In ihr wird z.B. angegeben, daß 
weiße volle Punkte eine richtige Ziffer an der richtigen 
Stelle markieren und schwarze Ringe eine richtige Ziffer, 
jedoch an der falschen Stelle. 

Wenn Sie dann eine Taste drücken, fragt der Rechner 

'Wieviele Zahlen ?'. 

Geben Sie hier bitte ein, wieviele Ziffern Sie neben¬ 
einander raten wollen z.B. '5' für alle Zahlen zwischen 
00000 und 99999. Als nächstes fragt der Rechner wieviel 
Ziffern jeweils pro Stelle zugelassen sind, diese müssen 
größer als eins und kleiner als neun sein. Wenn z.B. eine 
'3' eingegeben wird, so schränken Sie die Zahl von 100000 



16 


Kapitel 1.1 


Möglichkeiten schon erheblich ein, da nur noch die Ziffern 
0, 1, 2 und 3 zugelassen sind (es bleiben 1024 Möglichkei¬ 
ten). Schließen Sie jede Eingabe mit RETURN ab. 

Dann können Sie Ihre Ziffern eingeben. Haben Sie oben fünf 
Ziffern angewählt, so geben Sie jetzt fünf Ziffern in dem 
von Ihnen gewählten Bereich (z.B. 0 bis 3) nacheinander 
ein und drücken Sie nach jeder Ziffer RETURN. Haben Sie 
eine Ziffer eingegeben, die nicht im zulässigen Bereich 
war, erscheint eine Fehlermeldung am Rechner, und Sie kön¬ 
nen erneut versuchen Ihre Ziffern einzugeben. Haben Sie 
alle Ziffern eingegeben, so erscheint auf einem neuen 
Bildschirm die Information, z.B. ein weißer Punkt, d.h. 
daß eine Ihre Ziffern richtig war und an der richtigen 
Stelle. Erscheint ein schwarzer Kreis, so heißt das, daß 
eine Ziffer richtig war, jedoch an der falschen Stelle. 

Haben Sie alle Ziffern richtig geraten, so wird die ge¬ 
brauchte Bedenkzeit in Stunden, Minuten und Sekunden an¬ 
gezeigt und es erscheint noch eine zusätzliche Meldung, 
über die Güte Ihres Ergebnisses. Diese Meldung ist ab¬ 
hängig von der Anzahl der Ziffern, von der Einschränkung 
auf bestimmte Ziffern, von der gebrauchten Zeit und von 
der Anzahl der Züge. 

Beachten Sie, daß bei steigender Anzahl der zu ratenden 
Zahlen und bei Zulassung aller Ziffern, der Schwierig¬ 
keitsgrad überproportional wächst. 

Wenn Sie nochmal spielen wollen: einfach R-U-N eingeben 
und RETURN-Taste drücken. 


Programmlisting 


:l 000 REN *H«i+;*4*#H|H************4#if************************* 
1010 REM He T H I N K * 

1020 REN ***HeH<4*He*i'leHeHe)+iHeH<i'le*H^*4H<H'i*He*****HeHf:HeH^****He4H^****4*** 
1030 POKE532S0..9 
1040 PÜKE53281..8 
1050 PRINT"ITJ 
1060 PRINT"a".r 
1070 PRINT" 

1080 PRINT" 

1080 PRINT" 

1100 PRINT" 

1110 PRINT" 

1120 PRINT" 

1130 PRINT" 
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1140 PRINT" . ^ < =i ii" 

1150 PRINT" i i; ii" 

1160 PRINT":gl!!m-l DIETSEN SPIEL MUESSEN SIE ZIFFERN" 

1170 PR INT "UND ZFIHLEN RfiTEN. WIEVIELE ZRHLEN" 

1180 PRINT"KOENNEN SIE SELBST BESTIMMEN. fiUSSER- 
11B0 PRINT"DEM KOENNEN SIE DIE HNZRHL DER ZIF- 
1200 PRINT"FERN EINSCHRRENKEN. NENN SIE IHRE 
1210 PRINT"IHRE ZRHLEN EINÜEGEBEN HRBEN ERSCHEINT 
1220 PRINT"EINE INFORMRTION, NIEVIELE ZRHLEN" 

1230 PRINT"RN DER RICHTIGEN STELLE NRREN" 

1240 PRINT" -->,3 • mC—," 

1250 PR INT "UND NIEVIELE ZRHLEN ZURR RICHTIG.." 

1260 PRINT"RBER RN DER FRLSCHEN STELLE NRREN" 

1270 PRINT" -->■ O ÜK— 

1230 PR INT "DREIECKEN SIE JETZT BITTE EINE TRSTE 
1290 NflIT19S..l 

2000 REN *******4:H^:***:■K^^:H^:<M■;*4:**:+;*:^<*4:*i+:*************i^^*J^:**** 
2010 REM * STRRTZEIT SPEICHERN * 

2020 REM ***i'N'l<4:***jl:*H'**H':#:’K**:<K**************JF:+:*****#****** 

2030 1=71 

2040 REM jl:H^*:'F**jl:j|<;'l(*****H0l';*#*iK:+ijF*Hl«**jl:*:<«*)+:*:<t***i+;*********** 

2050 REM JT SCHNIERIGKEITSGRRD NREHLEN * 

2E'i 6G REM i+::f 

2070 INPUT " 3-\ I EV I ELE ZRHLEN " ZR 

2080 I NF'LIT "SffiDüJ-l IVI EL..E ZIFFERN C 1CZC10 > " .r ZI 

2090 OIMRIZR::' 

2100 DIMBCZR::' 

2110 DIMCCZR;:' 

2120 DIMD<ZR12+ZR> 

2130 F 0 RI := 1T 0 Z R 
2140 R I > = I NT C T ZI +1 T *RND T 5 !:■ > 

2150 CT I :>=R':: I 
2160 NENT 

3000 REM :<K***********:'^:#***^^:*****H^:*HK****:^^H^*HI^:<NH^************ 
3010 REM * SPIELZUEGE EINGEBEN * 

3020 REN *H^:*:■^:*;+;H>l*H^*:^^****H■;^^:**4:**ifH^*******:^^****:♦:********:^^** 
3030 PR INT" :gMgIi!Mt!Mt!Mi!!C EBEN SIE IHRE ZIFFERN EIN" 

3040 0=0+1 
3050 FORI = lTiJZfl 
3060 INPUTBT I 

3070 IFBCITCOORBTITJZITHEN3100 
3080 NENT 
310 9 Gi G 0 T 0 315 0 
3100 F=F+1 

31 10 0 N F' 0 Ü T04030... 4090., 4140.. 4190 ..4280 

3120 REM *jF*HF******************************************** 
3130 REM * RICHTIGE FESTSTELLEN * 

3140 REM i+;^^:**s^::^^H^;'^H^****H■;**^^:***iF*H^H^*****H^****************** 

3150 FDRI=1T02R 
3 i 60 R T I > =C C I > 
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3170 HEXT 

318 0 F 0 RI = 1T 0 Z FH- 7 Fl 12 
3190 D'::i::'=0 
3200 HEXT 
3210 l- U R K = 1T 0 Z fl 

32201 I FFl K :> ==8 f! K i TUEND K i == 1 : fl 11< > = 10 n B K l == 1 1 
3230 HEXT 
3240 F0RK=lT0Zfl 
32 501 F 0 R L ==: 1T 0 2 fl 

3260 I rfl3 f K C L > THEHD v K*2R+L :> ==2 ; fl C K i =: 10 : B C L i = 1 1 

3270 HEXT 
3280 HEXT 
3290 REM 

3300 REM * ERGEBNIS DES ZUGES flUSGEBEH * 

3310 FiEM 

3320 PR I NT " □! HFOFJMFiT I OH ; " 

33l'::l0 REM 

3340 REM HU ALLES RICHTIG ? * 

3350 REM *:+iH|.iH■;*H|.;H|^HK*HFH^;H^K*H|^:^(H^:HKH|^:.Fi^^*i+i*HF:■FH|►*HFH^:H^:l^(H<*if*H^:*;+;H^;^ 

3360 FORK==lTOZFl 

3370 I FD ■:; K > 01 THEHGOTO:3430 

3390 GOT05030 

3400 REM H|^H^:i+;H|^H^;*:.k:+:H|^4H^*HF*HHN:+i*H^;**lfH|^H^:HFH^:H^::.^:i^^lf**HFHHH^:H||)H^iH|^*l^HF*** 

3410 REM HF HOCH FEHLER * 

3420 REM :'F:'F*H!':*HF*HFHFHF:'FHF*H|.;*HFHF:fHt::F:FHFH|fH«H|f:FHFHF:*H|.iHF;:FHFHF*H|.iHF**HFHFHF:F** 
34:30 F0RI<= 1 TOZfl■l■■2M■r2 
:3440 IF-D < l< > = 1 THEHf^^'R IHT " aHltllil" ; 

3450 I FD C l< :h =2THEHPRI NT " UIIOlU" ; 

3460 NEFTI' 

3470 PRIHI 
340:10 13010:30:30 

■4 0 0 0 P E M hF i'F i'F:+: HF: i'F:+: HF HF HF HF :F HF H|t jF :F h|h Hf: i+i :f Hjf hF HF hF hI'I hF :+: H'i hF :+: hF :F :+: H|f :F 4: HF 4: hF ;F HF hF :F Hf: ;F 
4010 REM :F r'E:HLERMEL.DUHGEN * 

4 0 2 0 R E M HF i'F hF^ * HF hF :F :+: hF * h|.: hF :+: :F hF hF hF hF * * hF hF hF hF hF I'F hF HF: * h|( H|f HF HF :F H|f :F HF Hlf HF * :F hF h|( * * :+: HF 
4030 PRIHT'LXiflS WAR IHR ERSTER FEHLERSMflä" 

4040 PR INT "MUH JA , Ml" 

4050 PRINT" ERHRE HUMAHUM ESTSIü]" 

4060 PRINT"WIE SCHON DIE ALTEN GRIECHEN SAGTEN" 

4070 PRINT"äM'tl" 

408ÜI GO'l 0:30:30 

4-090 PRINT'LXiAS IST SCHON IHR ZWEITER FEHLERSKia" 

4100 PRINT"MACHEN SIE IMMER SOVIELE FEHLER?" 

4110 PRINT"aiglB(f:|BER WAS SOLL'S" 

4120 PRINI "SKEI" 

41:30 GOTO:3030 

4140 PR INT ""PER DRITTE FEHLERMIng" 

4150 PR INT "LANGSAM STINKT'S MIR:®!®!" 

4160 PR INT"NICHT SO EILIG EINGEBEN VIELLEICHT" 

4170 PRINT";!llKM(|ffi}=lLSO : Müß]" 
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41 ü 0 G 0 T0 3 04! 0 

4190 F'RIHT";:^;EI VIER V I E R FEHLERN" 

4200 PR INT "SOLLTE NHN GLRUEEN MGH HFlT ES MIT EINEM" 

4210 FR INT "KLEINKIND ZU TUN. gUlÜU" 

4220 PRINT"KOENNEN SIE EIGENTLICH RICHTIG HUF" 

4230 PRIHT"DIE TH3TE DRUECKEN,.DIE SIE HUCH MEINEN:'" 

4240 PR INT"Hä DER NHECHSTE IST IHR LETZTER FEHLER" 

4250 PR I NT " g|il3!J!MffiJiaiil'.IETTEHY " 

4260 FRINT" :gMH " 

4270 G 0 T03030 

42S0 PRINT"JDHS HHUT DEM FHSS EIN EI INS GENICK" 

4290 PRINT "SIE SIND MIR ZU DUMN,üMI!:IS!!!E;I" 

4300 PRINT"DIE ZHHLEN WHREN UEBRIGENS:" 

4310 F0RI=1TÜZH 
4320 PRINTC':; I 
4330 NENT 
4340 END 

5000 IR E M jK :iK iiK H':Nt i+i:+: i+i H'i i+i >1« 4! * i+- l'l': * :¥■ * H'i if H*! * jF jfi i'F i'F jF JF 

5010 REM * BENERTUNG DES SPIELES * 

5020 REM **:+;******i'H:'F*H<***i'F****:'lHHLi****i'Fif4i*i+iJ|c.F**i+:****i+:*** 
5030 ZE=TI-T 
5040 'r'=Z E 216000 
5050 SU^NNTCV::' 

5060 MI = I NT < 2EZ3600-SU*60 
5070 SE= I NT L 2E, '60 -SU#3600-M I *6@ 

50S0 PR INT "SIE HHBENglHS" 

5090 PR I NT " " ;i SU ; " STUNDEN " 

5100 PIRI HT " " .! MI ; " MI NUTEN " 

5110 PRI NT" ";SE;"SEKUNDEN" 

5120 PRINT" :bMH VERBRHUCHT" 

5130 PR INT " IBM " 

5140 ZT= C ZE,-'<: 2HT1 5*21 *0 

5150 IFZT<1000THEN5220 
5160 IF 2! T C S! O O 0 T H Ei N 5i 2 6 0 
5170 IFZT<5000THEN5290 
5180 IF 2 T < V’ 0 010 T H E N532Ü 
5190 IF2T <10000T HEN5 350 
5200 IF2T<150O0THEN5390 
5 210 G 0 T05430 
5220 T=TI 

5230 PRINT" DRS WHR SPITZEH" 

5240 PRINT" □ " 

5250 IFTI-T<600THEN5230 
5260 PR I NT"SEHR GUTHH" 

5270 PRINT"SIE SIND EIN INTELLIGENTES MENSCHENKIND" 

5280 END 

5290 PRINT" IMMERHIN.. SIE HRBEN ES GESCHRFFT" 

5300 PR INT "MIT EIN BISSCHEN LIEBLING GEHTS BESSER" 

5310 END 

5320 PRINT"GESCHhFFT! !!!!!!!! I Steffl!]" 
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5330 PR INT"OBER ICH NEHME HN SIE HUCH" 

5340 END 

5358 PRINT"SCHREMEN SIE SICH EIGENLICHT NICHT?" 

5360 PRINT" MBB IE SIND ZU DUMM UM EINEN EIMER" 

53?0 PRINT"ia!ö;'HSSER UMZUiaPPEH" 

53S0 END 

53S0 PR INT "RUFEN SIE DOCH MFIL DIE NHECHSTE" 

5400 PRINT"HEIL_HHSTHLT HN.DIE SUCHEN NOCH" 

5410 PRINT"SCHWIERIGE PRELLE" 

5420 END 
5430 T=TI 

5440 PRINT"HRT MRN SIE SCHON RLS MENSCH ZUOELRSSEN ? 
5450 PRINT' LbMbT ' 

5460 PRINT" SIE SIND EINE If--LHSCHEl! ! ! ! ! □" 

5470 PRINT" □" 

5480 IFTI-T<600THEN5460 
5490 END 


Programmbeschreibung 


Das Programm ist wie folgt aufgeteilt: 

1000 bis 1290 Spielbeschreibung 

2000 bis 2160 Eingabe des Schwierigkeitsgrades 

3000 bis 3480 Spielzüge erfassen und auswerten 

4000 bis 4340 Fehlermeldungen 

5000 bis 5490 Bewertung des Spieles 

In den 1000-Zeilen ist lediglich die Zeile 1290 bemerkens¬ 
wert, sofern Ihnen der WAIT-Befehl nicht bekannt ist. Mit 
WAIT 198,1 wird auf den Druck irgendeiner Taste gewartet. 
Die Speicherzelle 198 im RAM gibt an, wieviel gültige Zei¬ 
chen im Tastaturpuffer stehen. 

In Zeile 2030 wird die derzeitige Einschaltzeit des Rech¬ 
ners, die in der Systemvariablen TI vom Rechner übernommen 
werden kann, der Variablen T zugewiesen. Es ist nicht nö¬ 
tig die Zeit im Rechner vorzubesetzen, da wir nachher mit 
der Differenz zwischen dem hier gespeicherten Ergebnis in 
T und dem Inhalt der Variablen TI zum Spielende rechnen 
werden. In den Zeilen 2070 und 2080 werden die beiden 
Schwierigkeitsgrade des Spieles eingelesen und in den Zei¬ 
len 2090 bis 2120 werden entsprechende Hilfsfelder defi¬ 
niert. In der Schleife von der Zeile 2130 ab, werden 
zufällige Ziffern in den Feldern A(l) und C(l) abgelegt. 
Dies sind die Ziffern die später erraten werden müssen. 

Die Zeilen 3030 bis 3480 werden für jeden Spielzug durch¬ 
laufen. Für die spätere Auswertung wird in Zeile 3040 die 
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Anzahl der Runden um eins hochgezählt, dann wird die Ein¬ 
gabe vollzogen und sofort nach der Eingabe eine Plausibi¬ 
lität auf die Ziffernhöhe durchgeführt, wobei falsche Zif¬ 
fern durch eine Fehlermeldung quittiert werden. 

Anschließend wird dem Eeld A(l) der Wert des Feldes C(l) 
zugewiesen. Die Felder A und B werden miteinander vergli¬ 
chen, das Feld C() enthält die zu suchenden Zahlen und das 
Feld D() dient zum Festhalten der Vergleichsergebnisse. 

Anschließend werden die Felder A() und B() jeweils paar¬ 
weise mit den entsprechenden Elementen überprüft. Wenn 
Übereinstimmung vorliegt, wird der entsprechend zugeord¬ 
nete Wert in Eeld D() auf 1 gesetzt, und die Werte in den 
Eeldern A() und B() erhalten die Werte 10 und 11, die ja 
bekanntlich keine Ziffern sind. Damit werden diese beiden 
Felder für weitere Vergleichsoperationen nicht mehr heran¬ 
gezogen. 

In der folgenden Doppelschleife werden die Felder A() und 
B( ) jeweils mit allen anderen Elementen des anderen Eeldes 
verglichen. Auch hier wird bei Übereinstimmung wieder eine 
10 in das Feld A() und eine 11 in das Feld B() geschrie¬ 
ben. 

In der nächsten Schleife wird abgeprüft, ob bereits alle 
Zahlen richtig geraten wurden. Dieser Fall liegt vor, wenn 
am Beginn des Feldes D() nur Einsen stehen. Wenn ja wird 
zur Zeile 5030 übergegangen, die den Abschluß bringt; wenn 
nicht, werden die ermittelten Werte in den Zeilen 3440 und 
3450 ausgegeben. 

Die Zeilen ab 4000 sind den Fehlermeldungen gewidmet, wo¬ 
bei diese wohl nicht erklärt werden müssen. Wem sie nicht 
gefallen, der kann sie ja ganz leicht abändern. Aber ge¬ 
rade diese einfache Programmierung mit PRINT-Befeh len gibt 
immer den herausragenden Effekt bei einem Computerlaien, 
der sich nur das Spiel ansieht. 

Ebenso ist es auch mit den Spielbewertungen ab Zeile 5000. 
Zunächst wird noch die Zeitdifferenz TI minus T gebildet 
und diese dann in Stunden, Minuten und Sekunden umgerech¬ 
net, worauf auch die Daten gleich ausgegeben werden. Dann 
werden noch die Anzahl der zu ratenden Zahlen, die Anzahl 
der möglichen Ziffern, die Zeit und die Anzahl der Züge 
umgerechnet, so daß in die Variable ZD alle Leistungen des 
Spielers eingehen. Aufgrund dieser Leistung wird an¬ 
schließend verzweigt. 
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Änderungen und Ergänzungen 


Da der Commodore 64 bis zu sechzehn verschiedene Farben 
zuläßt, wäre es auch ganz interessant, das Spiel so zu 
programmieren, daß -wie bei Superhirn und Master Mind 
auch- Farben mit einer bestimmten Anordnung geraten wer¬ 
den müssen. In diesem Falle wäre es sinnvoll, als Eingaben 
die Werte 0 bis 15 zuzulassen und diese jeweils mit einem 
PRINT-Befehl zu verknüpfen. Sogar die gleiche Farbe wie 
der Hintergrund kann man zulassen, was dann dem Weglassen 
eines Steines bei den echten Spielen entspricht. 


THINK 


1000 - 5490 


Variablen: 


Name 

Typ 

! Bereich 

! Bedeutung 

F 

G 

! 1. . .5 

! Zahl der Fehler 

I 

H 

! 1... ZA 

! Laufvariable 

K 

H 

! 1... ZA hoch 2 

! Laufvariable 

L 

H 

! 1... ZA 

! Laufvariable 

MI 

G 

! Zeit 

! Minuten (abgerundet) 

0 

G 

! Ganzzahlig 

! Zahl der Züge 

SE 

G 

! Zeit 

! Sekunden 

SU 

G 

! Zeit 

! Stunden (abgerundet) 

T 

G 

! Zeit 

! Spielzeit (Stoppuhr) 

Y 

H 

! Zeit 

! Stunden 

ZA 

G 

! Ganzzahlig 

! Anzahl der Ziffern 

ZE 

G 

! Zeit 

! Spieldauer 

ZI 

G 

! 0. . .9 

! max. Höhe der Ziffern 

ZT 

G 

! Ganzzahlig 

! Spielkoeffizient 


Felder 

(Arrays) 

; 



Name ! 

Dirnen. ! 

Typ 

! Bereich 

! Bedeutung 

A ! 

1. . .ZA ! 

G 

! 0...11 

! Vergleichswerte 

B ! 

1...ZA ! 

G 

! 0. . .11 

! Eingabewerte 

C ! 

1. . .ZA ! 

G 

! 0. . .11 

! gesuchte Zahlen 

D ! 

1. . . ! 

G 

! 0,1,2 

! Trefferangabe 
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! ZA*ZA ! 


Unterprogrammaufrufe : 


in ! nach ! Zweck 


keine! 


Verzweigungen nach außen : 


! 

i n Ze 1 

nach 

1 Bedingung 

I Bemerkung 


1 

4340 1 

END 

1 F = 5 

1 Zu viele Fehler 


j 

1 = 

5490 I 

! END 

! _ 

1 Normales Ende 

-- 1 


1.2 REVERSI 


REVERSI - auch unter dem Namen Othello bekannt - ist ein 
Ein-Personen-Denkspie 1. Spielziel ist es möglichst viele 
Spielsteine mit eigener Farbe zum Schluß zu erhalten. Das 
Spielfeld ist 8x8 Einzelfelder groß. Gerade Revers! ist 
ein Musterbeispiel für den Computereinsatz bei Spielen. 


Spielanleitung 


Nachdem Sie das Programm mit 

LOAD "REVERSI",8 (RETURN-Taste) 
geladen haben und mit 

R-U-N (RETURN-Taste) 

gestartet haben, erfragt der Rechner zunächst die Spiel¬ 
starke. Geben Sie auf die Frage: 


Entweder '0' 


Soll ich mein Bestes geben ? 
oder ‘N’ ein. Danach können Sie die Farbe 
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wählen, indem Sie eine '1' für orangefarbene bzw. eine 
'2' für gelbe eigene Spielsteine. Die jeweils andere Farbe 
übernimmt der Computer. 

Als Letztes vor Spielbeginn fragt der Rechner, ob Sie an¬ 
fangen wollen oder nicht, antworten Sie hier auch wieder 
mit ■D' oder 'N'. 

Geben Sie z.B. 'IM' ein, so erscheint zunächst das Spiel¬ 
feld mit der Anfangskonstellation. Von den insgesamt 64 
quadratisch angeordneten Feldern sind die mittleren vier 
Felder mit je zwei Steinen für jeden Spieler besetzt. Die 
Spalten werden am oberen Rand durch Buchstaben gekennzei¬ 
chnet und die Zeilen jeweils an der rechten und linken 
Seite durch Zahlen. Oben rechts erscheint noch eine Anzei¬ 
ge, wer wieviele Steine auf dem Spielfeld besitzt, wobei 
die Zahlen in den entsprechenden Spielfarben erscheinen. 

In der Zwischenzeit hat der Computer nachgedacht, löscht 
anschließend den Bildschirm und gibt dann aus: 

- 'ICH GEHE NACH (SpaIte),(Zeile)' z.B. F 4. 

- 'DAMIT BEKOMME ICH (Anzahl) STEINE VON DIR' 

- das Spielfeld mit der aktuellen Konstellation 

- die neuen Verhältnisse der Spielsteine 

- 'DEIN ZUG (A-H, 1-8)?'. 

Sie sind nun mit Ihrem Zug an der Reihe. Ziel ist es, 
möglichst viele Steine des Gegners einzuschließen. Aber 
auf lange Sicht gesehen ist es nicht immer sinnvoll die 
maximale mögliche Zahl von Steinen des Computers einzu¬ 
schließen, da auch die Besetzung einiger wichtiger Posi¬ 
tionen Vorteile verschaffen kann. Wichtige Positionen sind 
z.B. die vier Eckpunkte (A,1;H,1;A,8;H,8) oder die Felder 
die jeweils zwei Felder davon entfernt liegen. Da die Far¬ 
be der eingeschlossenen Spielsteine immer in die eigene 
verwandelt wird, ist offensichtlich, daß der Gegner nie 
mehr in den Besitz einer besetzten Eckposition kommen 
kann. 

Wählen Sie nun eine Position aus, wo Sie einen Stein set¬ 
zen möchten. Geben Sie zunächst die Spalte (Buchstabe) und 
dann die Zeile (Ziffer) jeweils ohne RETURN-Taste ein. 
Wenn Sie eine nicht zulässige Position eingeben, so bringt 
der Rechner verschiedene Fehlermeldungen: 

- Sie besetzen ein Feld ohne Nachbarn: 'DU SCHLIESST 
KEINEN STEIN VON MIR EIN'. 

- Sie besetzen ein Feld, wo nur Sie selbst Nachbar 
sind: 'DAS GEHT NICHT, VERSUCH'S NOCHMAL'. 

- Sie wählen ein schon besetztet Feld aus: 'DAS FELD 
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IST BESETZT. . . ’ . 

In jedem Falle fragt der Rechner wieder nach einem neuen 
Zug. Haben Sie eine korrekte Eingabe getätigt, so zeigt 
der Rechner die neue Spielfeldbelegung an und 'denkt' über 
seinen eigenen Zug nach. 

So wechseln Sie sich jetzt immer mit dem Computer Spielzug 
um Spielzug ab. Kann der Computer nicht mehr ziehen, so 
meldet er 'ICH KANN NICHT ZIEHEN' und Sie sind mit dem 
nächsten Zug an der Reihe. Es wäre natürlich geschickt von 
Ihnen, den Computer soweit zu bringen, indem Sie ihm keine 
Möglichkeit mehr lassen, Steine von Ihnen einzuschließen. 
Dies ist am einfachsten der Fall, wenn man seine eigenen 
Steine vom Rand her aufbaut, ohne auf Steine des Computers 
Rücksicht zu nehmen. Können Sie nicht mehr ziehen, so ge¬ 
ben Sie bitte '0' '0' ein. Der Computer fragt Sie dann, ob 
Sie den Zug abgeben wollen, bitte beantworten Sie diese 
Frage dann mit 'D'. 

Kann keine der beiden Parteien mehr ziehen (meist sind 
alle 64 Einzelfelder belegt), so ist das Spiel zu Ende und 
der Computer gibt eine Meldung in Abhängigkeit von Ihrer 
Anzahl der Spielsteine wieder. Daraufhin können Sie ein 
neues Spiel versuchen oder das Programm beenden. 


Programmlisting 


1000 REM ***************H‘**;+:H';********;f****************:f 
1010 REN R E V E R S I * 

1020 REM ******H«sf*i+;;'>;i+;****H‘;;+;***:+i:'K**H^***:f*****:■►;************ 

1030 P 0 K E53 2S 08 
1040 P0KE532S1 1 1 
1000 DI MR':; 9,,8;' 

1060 DIMHllS::’ 

1070 DIMI4'::s::' 

1080 DIMJ4'::s::’ 

1090 DIMC:f'::8::' 

1 100 DI MDI? 2 :> 

1110 DIMET 

1 120 REM **H<?^*****H^*******H^****I«**************;+;*H^******I'* 
1130 REM * SPIELSTRERKE FESTLEGEN * 

1140 REM *H^*****H<***H(******i+:****H^*H^?f:***Hf:**sf:**i+;*:+;Hf******** 
1100 PRINT" 

1160 3=0 
1170 GETXit: 

1180 I FKI:= " " THEN1 170 
1190 PRINTXI: 

1200 IF Kilr="N" GOTO1260 
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1210 IF K:tC>"J"Ü0T01 170 
1230 REM 

1240 REM * SPIELSTEIHE BESETZEN * 

1250 REM *********:+;:+:**** * :+i i'lH * Jl« i'lt ^ * * * * sH * ■¥. hK i-K i\f .:+: * Hi Hi 

1260 E:=-l 
1270 W=1 

1280 REM D:T C B+1 > = " ai;l-....-lS!r' 

12B0 REM E:Ti:B+1 

1300 D^'üE+l = . uns« " 

1310 E^ i: B +1 :> =" ;.1EL.Ji.3l" 

1320 DT:'::0-hi::'=:"iiJ-T!" 

1330 E:fO;i+i::'==:'VL..._ffl!" 

1340 REM DiE:'::W+l 
1 350 REM E :t <: W ■+■ 1 ::■ ==" 13 ■■•"■■.!!-19'' 

1360 D t ■:; W +1 " liifir’lijg'' 

1370 Et- c w+1 ;:■ --=" iraa Bsa " 

1380 REM *:+:****HiHi*HK***HiHi*HiHiHiHii'li;+:*HiH|iHNi*HfHi*;'h:HiJ|iHiH:HiHi*Hi*Hi*:'H*Hi*Hi 
1390 REM * DFITEN BEREITSTELLEN t 

1400 REM Hii‘Ki+::'|i:+:;'|1j|lHHi+;i+;i'>;:+:i+ii+:*HiH':i+::+ii+:H':HlHi;‘KH':HiH':i‘K:'|lH';HlH';HiHHH<:'|iHi:'|lH':H<;'|1i+i4;HlHiHli+;j|1 
1410 DFITR 0.. -1 ... -1 .. -1 ... 0.. 1 ... 1 ,. 1 
1420 F0RK=:1T0S 
1430 REFiD 14 01;::' 

1440 NENT K 

1450 DflTR 1 .. 1 .. 0 .r -1 ., -1 .r -■ 1 .. 0... 1 
1460 F0RK=1T0S 
1470 RERD ..14 CK;:' 

1480 NENTK 

1490 DRTRR.. B.. C.. D.. E.. F... G... H 
1500 F0F?K=1T03 
1510 RERDCTiK::' 

1520 NENTK 
15 3 £1 F 0 RI = 0 T 0 9 
1540 FOR..T.--0TO9 
1550 R c: I .. .J =0 
1560 NEKT.J 
1570 NEXTI 

1580 DRTR7..2..6..5..5..6..2..7 
1590 DRTR2... 1 .. 3.. 3.. 33.. 1... 2 
1600 DRTR6.. 3.. 5.. 4.. 4 .. 5., 3.. 6 
1610 DRTR5..2..4..3...3..4..3L5 
1620 D R T R 5.. 2.. 4.. 3.. 3., 4., 3.. 5i 
1630 DRTR6.. 3.. 5.. 4., 4.. 5.. 3... 6 
1640 DRTR2., 1.. 3.. 3... 3., 3.. 1... 2 
1 650 DRTR726.. 5... 56., 2... 7 
1660 FORI = 1 TOS 
1670 F LI R ..I =: 1 r iJ S 
16S0 RE.RDEI L I ... .1 
1690 NEXT..T 
1700 NEXTI 
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1710 REM ******:^^***^E:^^*^K**sK********i^^***4:*i+i*?^:?^:*?l'i*i+i*****?^:*#* 

1720 REM :■+: ERSTEH 4 STEINE RUF SPIELFELD * 

1730 REM j|«N***HH4:***Jt:********j|^iH<***?N**JEj|^*******H':***i+i:+:**JE*H':* 

1740 fl'::4,,4::':=:|.'J 

1750 R'::5,5::'=W 

17601 R 0 4-... 5 > ==:B 

1770 R':!5,4!:'=B 

17S0 0:1=2 

1790 Hl=2 

1800 IT 1=4 

1810 Z=0 

1820 REM ***********:'K*****T<*****:'KT«N:'K**T^*****:f*****:+:*:'h;*Tf 
1830 REM :+ SPlELFRREiEH FESTLEGEN * 

1840 REM ***T«****T^*T^?N*****Tt*T^******:+:**:+:TH*****:+i:+:*****:+;**** 
1850 PRINT"J!l5k.WlLLST DU lii». ODER ,71.3 

1360 C=W ji| ■? la ". 

1870 H=B 
1880 GETKT 

1890 IF Kil=" "TUEN 1880 

1900 IF :TT=" 1 "THENPR1NT";JJ3 "it" U3OTO2030 
1910 IF K-T="2"THENPRINT"ij3a ü»." 

1920 I F>:$<> " 2 " GOTO 1SS0 
1930 C=B 
1940 H=W 
2000 REM 

2010 REM :■+: SPIELBEGINN * 

2020 REM ******:+::'K***:'K:+:***JNHtToK****i+:*)'l':**T’i**Ht*;.Ki+::fifTt*******if* 
2030 PRINT : PR INT" tWILLST DU RNFRHGEN El"; 

2040 GETXT 

2050 IFX:T = " "THEN2040 
2060 PRINTNT 
2070 PRINT"^" 

2080 IF XT="N"THENGOSUB8000 ;GOTu:3050 
2 01901 IF r ■! T < > ".J " G 0 T O 2 0i 4 01 

2100 REM ***i4';*Tt*T^*****iN******Tt*****Tt**:'l<;'l^**i>::+:T^iNTe*i+:**#**Tt*:+^ 
2110 REM * RLISGRBE ERSTES SPIELFELD ■*. 

2120 REM *T^******iH<***Tt**T^*T^***i+:if 
21:3 01 r-i O S U B 8 0i 0i 0i 
214 01 G 0 T040:30i 

3000 REM ******:-h******T^****H^***i'^i*i^^***i^^*i+;***:-h;+;if*ilK;'l^if*i+:**i'^i*^ 
3010 REM * COMPUTERZUG * 

3020 REM 

3030 IF F2=0 TUEN 3050 

3040 INPUTNT 

:30i50i E' 1 = — 1 

:30i60i H:3=01 

;3070i J:3=0i 

3080 T1=C 

3090 T2=H 

3100 REM ************if:****T«4;:+;*iK*Ht*iN*Ttif****:'l':**it::t:i+;**if:iKif:H':T';** 
3110 REM ■¥ LEERES FELD SUCHEN * 

3120 REN +**+*+^^^^^♦^♦^^^^►:**+*H':*****:1(*;+;***4:****+**H^:*i+::f+** 
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3130 1=1 
3140 J=1 

3150 I Ffl C I .. JTHEH3440 

3160 REM ***************H<******************************** 
3170 REM * LEERES FELD GEFUNDEH * 

3180 REM ************************************************ 
3190 REM * .PRUEFEN.,ÜB FE IHDL. HRCHBflR VGRHflHDEN * 

3200 REM ************************************************ 
3 21 0 G 0 S U B 7 £i 0 0 
3220 I FF1=0 THEH 3440 

3230 REM ************************************************ 
3240 REM * HflCHBflR GEFUNDEH * 

3250 REM ************************************************ 
3260 REM * WELCHER WERT IST MOEGLICH?<KEINE RUSFUEHRUHG!:'* 
3270 REN ************************************************ 
3280 IJ=-1 
3290 G 0 S LI B6000 

3300 REM ************************************************ 
3310 REM * EXTRRPUNKTE FUER RRNDPGSITION * 

3320 REM ************************************************ 
3330 IF S1=0 THEN 3440 
3340 S1=S1+2*E<: I .,.T> 

3350 IF SlCBl GÜTO3440 
3360 IFS1>B1THEN33S0 
3370 IF RNDC 1 5THEN3440 

3380 E1=S1 
3390 H3=I 
3400 J3=J 

3410 REM ************************************************ 
3420 REM * ENDE DER SUCHSCHLEIFE * 

3430 REM ************************************************ 
3440 J=J+1 :1FJ<:9GGT03150 
3450 I = I +1 :1FI <;9G0Ti:i3140 
3460 IF Bl GOTO 3570 

3470 REM ************************************************ 

3480 REN * KEIN ZUG MOEGLICH * 

3490 REN ************************************************ 

3500 PR INT'VI CH KRNN NICHT ZI EHENÜl" :PR I NT :PR I NT 

3510 IFZ=1THEN5030 

3520 Z=1 

3530 GOTO4030 

3540 REN ************************************************ 
3550 REM * ZUG RUSFUEHREH * 

3560 REN ************************************************ 
3570 Z=0 

3580 IFH3THENPRINT"3kICH GEHE NRCH^J "CT<:J3>;H3 

3590 I=H3 

3600 J=..T3 

3610 U=1 

3620 G O S U B6000 

3630 C1=CT+S1+1 
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::i640 HJ=:H1-S1 
3650 N1=H1+1 

3660 PRi:h-IT" ük CiRMIT BEKOMME ICH Hä"S1 "in^STEIHCE> VON DIR" 
36?0 REM **Jt;Hfi*;t;***HK+ii+i******i+i*******i+:********************* 

3680 REM # SPIELFELD flUSGEBEH # 

3630 REM iät****4;*******:ti*!+;************i+i*sfi*#*>>;*sfi*********** 
3700 GOSUBS000 
3710 F:E;M 

3720 REM * HUF SPIELENDE PRUEFEN * 

3730 REM 4:*****H'N(*i44;**4**;ä(sfi**:f***Ht*Hti****:ä(*:'lK***H';********** 
3748 IF H1=0 THEH 5830 
3750 IF N1^:64THEH 5030 

4000 REM ***:+;*:ä<;F*H«****i*******i+i*****H':***:äf**)+i:FHKsfisfisfisfisfi*sfi***** 
4010 REM Hl« ZUG DES SPIELERS * 

4020 REM 4:tl';4i**#;fi+N«***HtHt*Ht****:äf:äf***:+;******:+iJ^;**********H';*H'; 

4030 T1=::H 
4040 T2=i;;; 

4050 PRINT'VDEIN ZUG CH-H,. 1-S::■ ? IJ "; 

4060 GETX$ 

4070 IFZ4:==" "THEH4060 
40S0 PRIHTZ4; 

4 090 GETIiT 

4100 IFI""THEH4090 
4110 I=:=VflL':: 14^::' 

4120 PRINTI 
4130 IFI=0THEN4160 
4140 IFI<0ORI>STHEH4090 
4150 IFITHEN4230 

4160 PRINT";sliU3IBST DU DEN ZUG HB ? ".r 

4170 GETN4:IFN4=""THEN4178 

4180 PRINTK4 

4190 IFN4<>"J"THEN4050 

4200 IF Z=1 THEN 5038 

42101 2=1 

4220 GOT03030 

4230 F0RJ=1T08 

4240 IFC4 ■; J > = N4THEN4300 

4250 NEKTJ 

4260 GOTO4050 

4270 REM 

4280 REM * FELD BESETZT ? * 

4290 REM ***;+:*****ifi********ifi************H';******H';H';******H^* 

4300 IF H'::I,,J::'=0 THEN 4370 

4310 PRINT",'33i::HRU MHL GENRU HIN." 

4320 PRINT"i;iORS FELD IST BESETZT.." 

4330 GOTO4050 

4340 REM ***************ifi**********J^**H«i+i4;*****ifi*j|********* 
4350 REM * PRUEFEN RUF NRCHBRR * 

4360 REM *;+;*******sfi#**#***********:+:**:äf**ifi********:*H<*sfi***H'; 

4370 G O S LI B7000 

43S0 IF Fl=l THEN 4468 
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4390 PRINT"lil:3CHFlU MOL GENfiU HIN. 

4400 PRINT"3:iU SCHLIESST KEINEN STEIN VON NIR EIN" 

4410 PRINT"ia'v'ERSUC:H 'S NOCHNhL" 

442Gl GO TO 41050 
4430 REN 

4440 REN * ZUG NOEGLICH ? * 

4 45Gl REN 4: :+:+ Hh :+ 4: :4 4:4: i* Hh 4: :+ H': 4: * Hh jlf hK hK .4; H': 4: i+::+ 44': 

4460 U:=-l 

4 470 Ci 0 S U B600Ö 

4480 IF S1>0 THEN 4540 

4490 PRINT"3CiHS GEHT NICHT,. Crv'ERSUCH'■ S NOCHNRL. 

4500 Ci 0 T04050 

4510 REN 44;4444:4i44:4444444:44444444';4;44:*4:44:44:*444i4i'l';4;4:'K4:4;4;444': 

4520 REN * RLLES IN ORDNUNG.,. ZUG NIRO FlUSGEFUEHRT 4 

4530 REN 4444:44:44:44;4;444:4:44*4444444:44;4i444:4;4444;44;444;44*44i44: 

4540 Z=0 

4550 U-“l 

4560 G 0 S U B600Ci 

4570 Hl^Hl+Sl+1 

4580 PRINT"3fc.DU BEKONNSTUI"S1 "»UBTEIhp:E> VON NIR 
4590 C1.--:C1-S1 
4600 N1=N1+1 

4 61 Gi REN 4 -4.4 4 4 4 4 4 4 4 4 4 4 4 4 4 4.4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4.4 4 4 4 4 4 4 4 4 4.4 
4620 REN 4 flUSGRBE SPIELFELD 4 

4630 REN 444444444444444444444444444444444444444444444444 
4640 G O S U B8000 

4650 REN 444444444444444444444444444444444444444444444444 
4660 REN 4 RUF SPIELENDE TESTEN 4 

467Gl R E N 4444 4444444444444444 44 444444444444 4444 44 4444-4 4 4.4: 
4680 IF C1=0THEN5030 
4690 IFN1 ==:S4THEN5030 
4 7 Gl Gl Ci 0 T 0 3 iJ 3 Gi 

5000 REN 444444444444444444444444444444444444444444444444 
5010 REN 4 S F' I E L. E N D E 4 

5020 REN 444444444444444444444444444444444444444444444444 
5030 PRINT 

5040 PRINT"SltlU HRSTa"Hl "ITÜSTEINE UND ICH HRBE:.3"C1 
5050 I FH 1 =C: 1THEN5090 
5060 IFH1>C1THEN5110 

5070 PRINT"aTUT NIR LEID,. RBER ICH HRBE GENOHNEN 
5080 GOTO5120 

5090 PRINT"EIN UNENTSCHIEDEN !!!" 

51 Gl 0 G 0 T05220 

5110 PRINT"a:iK! DU HRST GENONNEN 

5120 C1=C1-H1 

5130 IF CI THEN 5150 

5140 C:l=-Cl 

5150 C1=644C1,-'N1 

5160 PRINT"!IJDRS NRR EIN".; 

5170 IFCICI1THENPRINT"KRNPF !! SUPER !!!";00705220 
5180 IFC1<25THENPRINT"HEISSES SPIEL !";GOTO5220 
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51.90 I FC :t<39THEHPR INT "GUTES SPIEL " :G0T0522e 

5200 IFC:1C53THEHPRINT"LhSCHES SPIEL " :G0T0522e 
5210 PRINT"PERFEKTES SPIEL" 

5220 PRINT 

5230 PRINT"iik,NOCH EIN SPIEL '■ "; 

5240 GETXT 

5250 IFXT=:=" " THE:N5248 
5260 PRINTXT 
5270 IFXT=" J "THENRUN 
52S0 IFXTO " N " THEN5230 

5290 PRINT"HDfiNI<E. MIR: REICHTS RUCH,, 'TBCHUESS ! ! ! ! 

5300 END 

6000 REM 4:j|'::+ :+:+:+:+ :+■ .Hi::■+;:■+:il«H’:.4; 'f¥- 4::+:+ :■+:4::+:+ .1’;:+:+ 

6010 REN * ZRHL DER NRCHBRRN ERRECHNEN * 

6020 R E N :+.+:+:+ 4: sR:+ ■'l'::+ h|h .i|f:+ 4::+ 4::+ * iY -:■+::+■:+ 4; ■'l': :<I: .'N* i+i ilt:+4: He:+ if 

6030 :31=0 

6040 F 0 R: K ~ 1T 0 S 

6050 1-15= 14 < Kl 

6060 ..:r5=..;r4’;K::' 

6070 H6==: I -hH5 ; I FH6<0GOTO;350Gi 
iS 030 T 6 :=.J -h ■ J 5 
60190 S:3--0 

6100 I FR <: H6.J6 OT2THEN62S0 
61 10 I FU=--1 THENS3=::S3-i B e: H6.J 61 
6120 I FU= 1 THENS:3=S3+1 
6130 H6=H6-hH5 
6 1 4 0 1 6'...1 es r J 5 

6150 IF R';:H6,.JG::'=T1 THEN 6180 

6:160 IF Re:H6.J6=0 THEN 6230 

eil70 GOTOeBl 10 

6180 Sl = Sl-i-:S3 

6190 IFU<::>1THEN62S0 

6200 REM UPDRT'E EäORRD 

6210 H6=I 

e;:220 .Te?=..T 

6230 FÜR I<1=0 T0S3 
6240 Re:H6,. J6::'=T1 
6250 H6=:H6-t-H5 
6260 .je=..16+..15 
62? 0 f-IE:i?TK 1 
6280 NESiG'K 
6290 REII..IRN 

7000 REM *****Hei|e*He4iH:i|e*He;+i*He*i|e**H';*****H|eH:**He**He***:'|eHe*He*if:**H:* 
7010 REN i+i PRUEFEN RUF NRCHBRR UNHBHRENGIG VON SPIELER He 
7020 REM *HeHeiEH^He+i|eiEHeHei+*:fH:*H;He:+:H:H’;Hei|ei+:HeHeH:HeH;*H;;f*H:H:*H;HeH;JE***:+::+::+:*i+: 
7030 FÜR;H2=-1T01 
7040 F0F:..J 1 =-1 TO 1 

7050 I FR e: I-N-I2.,. .J +.J 1=T2TI lEI 17160 
7060 NEXTJl 
70r'2i NE::a i-i2 
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r-080 REM *****************)+;#***************************** 
7090 REM * KEIN NRCHBRR * 

7100 REM ************************************************ 

7110 F1=:0 
7120 RETURN 

7130 REM ************************************************ 
7:140 REM * HFlCHBflR * 

7150 REM ************************************************ 
7160 Fl=l 
7170 RETURN 

8000 REM ************************************************ 
8010 REM * SPIEL.FEL.D RUSGEBEN * 

8020 REM ************************************************ 
8030 PRINT 

8040 PRIHT"t3 RR[iJE:Ba::i::ni:iDaHE[iFFa30rtMH a"Hl " :^:liJ"Cl 

8050 PRIHT'V __ • " :V=0 

8060 F Ü R Q =1T08 
8070 PR I NT " B " ; Ü 3 I" 

801801 F' 0 R P = 1T 0 8 
8090 REN PRINT" 

8100 PR INTD^: c R C Q.. P + 1> t: V=V+fi C Q ^ P *B C Q , P 

8110 NEXTP 

8120 PRINT"! n";Q 

8130 PRINT"B" ;Q;"3 I"; 

8140 F0RP=1T08 

8150 PRINTET'::R'::Q..P::' + 1 

8160 NEXTP 

8170 PRINT"! B" .rG! 

8180 NEXTQ 

8190 PRINT"ik„ -" 

82010 RETURN 


Programmbeschreibung 


Das Listing von REVERSI ist in folgende Zeilenbereiche 
untertei1t: 


1000 

2000 

3000 

4000 

5000 


1940 Vorspann und Spielablauf bis zum ersten 
Spielzug 

2140 Spielbeginn 
3750 Computerzug 
4700 Zug des Spielers 
5300 Spielabschluß 


Unterprogramme: 
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6000 - 6290 Zahl der Nachbarn berechnen 
7000 - 7170 auf Nachbar prüfen 
8000 - 8200 Ausgabe des Spielfeldes 

Im Vorspann wird zunächst ein dunkelgrauer Hintergrund und 
ein orangefarbener Rand gewählt. Anschließend werden die 
in dem Variablen-Kasten näher beschrieben Variablenfelder 
definiert. 

Als erstes erfragt der Computer die Angabe seiner Spiel¬ 
stärke. Hier kann zwischen zwei Spielstärken gewählt wer¬ 
den (S), wobei bei der höheren Spielstärke neben der An¬ 
zahl der möglichen umkehrbaren Spielsteine auch noch eine 
Bewertung für die Position berücksichtigt wird. In den 
Zeilen 1260 - 1370 werden die Spielsteine besetzt. Dafür 
wird zunächst der Variablen B(Black) eine als Spiel¬ 

farbe zugeordnet und entsprechend der Variablen W eine 
’l'. Die Felder D$() und E$() beinhalten jeweils die 
Spielsteine, wobei - durch die Größe eines Spielsteines 
von 4 Zeichen bedingt - die Variable D$ die obere Stein¬ 
hälfte enthält und die Variable E$ dementsprechend die 
untere Hälfte. Die Spielsteine selbst sind durch die ent¬ 
sprechenden Grafikzeichen als Rahmen dargestellt. In den 
REM-Anweisungen befinden sich noch Spielsteine, die als 
Kreuz gestaltet sind. 

In den Spielsteinen werden jeweils die entsprechenden 
Farben gesetzt und der Reverse-Modus eingeschaltet. An¬ 
schließend wird nach den jeweils zwei graphischen Zeichen 
der Reverse-Modus ausgeschaltet und die Farbe wieder auf 
'Weiß' gesetzt. Das Austauschen der unterschiedlichen 
Spielsteinausgaben kann durch einfaches Einfügen von REM 
in den Zeilen 1300 - 1330 vonstatten gehen, wobei natür¬ 
lich in den Zeilen 1280,1290,1340 und 1350 jeweils das REM 
entfernt werden muß. 

Im weitern werden noch die zu Beginn definierten Varia¬ 
blenfelder mit entsprechenden Werten besetzt (Zeile 1410 
bis 1700). Die DATA-Anweisungen in den Zeilen 1580 bis 
1650 enthalten die Bewertungen der Positionen für die 
höhere Spielstärke. Wer seinem Computer eine andere Spiel¬ 
stärke geben will, kann auch hier verschiedene Matrizen 
entwerfen. 

In den Zeilen 1740 bis 1770 werden auf dem Spielfeld die 
mittleren vier Felder mit je zwei Spielsteinen für jede 
Partei gefüllt, wobei es im Moment noch unerheblich ist, 
welche Farbe welcher Spieler hat. Diese Zuweisung erfolgt 
erst später. 

Außerdem werden in den Variablen CI,Hl und NI noch die 
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Anzahl der Steine je Spieler und gesamt festgehalten. 

Dann fragt der Computer nach der Spielfarbe wobei das Aus¬ 
wahlkriterium '1' a priori vom Computer schon besetzt 
wird, bevor die Abfrage erfolgt. Diese Belegung wird nach- 
iier nur noch geändert falls eine '2' eingegeben wurde. 

Als letzte Frage vor dem eigentlichen Spielbeginn fragt 
der Computer, ob der Gegenspieler anfangen will. In Abhän¬ 
gigkeit von der Eingabe wird entsprechend zu Zeile 3050 
nach Ausgabe des Spielfeldes zum Beginn des Computerzuges 
gesprungen, bzw. zu Zeile 4030 für den Spielerzug. 


Computerzug 

Zunächst werden einige Hilfsvariablen vorbesetzt. Unter 
anderen auch die Variablen TI und T2, die in den Unterpro¬ 
grammen zur Auswertung benutzt werden. Durch diese Rege¬ 
lung ist es möglich, diese Unterprogramme unabhängig von 
dem aufrufenden Spieler (Computer/Anwender) zu machen. TI 
bedeutet also immer der Spieler, für den gerade im Compu¬ 
ter ein Zug errechnet wird und T2 seinen Ge ge nspieler. 

Zunächst wird beim Computerzug ein leeres Feld gesucht. 
Dies geschieht in einer Schleife, die auf den ersten Blick 
allerdings nicht gleich erkennbar ist. Im Prinzip ist die 
eine Schleife so programmiert, wie auch der Computer vor¬ 
geht, indem zum Schluß die Schleifenvariable (I bzw. 0) 
hochgezählt wird. Anschließend erfolgt die Überprüfung, ob 
die gewünschte Höhe erreicht ist (Zeilen 3440 und 3450). 

Die IF-Abfrage in Zeile 3150 ist erfüllt, wenn ein anderer 
Wert als 0 in dem Matrix-Element steht. Die Matrix A() 
enthält - wie aus dem angefügten Kasten hervorgeht - den 
jeweiligen Spielstand, d.h. eine oder eine ab¬ 
hängig davon, welcher Spielpartner das Feld besetzt hält, 
ansonsten eine '0'. 

In dem Unterprogramm ab Zeile 7000 wird nur überprüft, ob 
für das Feld ein feindlicher Nachbar vorliegt. Das Flag Fl 
enthält eine '1', wenn in dem Unterprogramm ein Nachbar 
gefunden wurde. Wenn nicht, wird das nächste Feld der Ma¬ 
trix A() überprüft. Die Variable U ist Eingabeparameter 
für das Unterprogramm ab Zeile 6000, in dem die Zahl der 
möglichen umkehrbaren Steine festgestellt wird. Dieser 
Wert wird in der Variablen S1 an das Hauptprogramm zurück¬ 
gegeben. Anschließend wird hier noch der doppelte Wert der 
'Positionsmatrix' B() hinzuaddiert. Ist dieser Wert klei¬ 
ner als der maximal bisher gefundene, so wird die nächste 
freie Stelle gesucht, um einen Stein zu positionieren. Ist 
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dieser Wert größer, so wird die gefundene Position in den 
Zeilen 3380 bis 3400 als bisher bestes Ergebnis abgelegt. 
Sind beide gleich, so wird in Zeile 3370 eine Zufallsaus¬ 
wahl getroffen. 

Wurden alle möglichen freien Stellen auf dem Eeld durch¬ 
sucht, so steht anschließend in der Variablen Bl der maxi¬ 
male Wert der umkehrbaren Steine inklusive seiner Posi¬ 
tion sbewertung . Ist dieser Wert größer als Null, so kann 
ein Zug ausgeführt werden und das Programm wird ab Zeile 
3570 fortgesetzt. Ist Bl = 0, so kann der Computer keinen 
Zug ausführen. Konnte auch der Anwender keinen Zug aus¬ 
führen (was in der Variablen Z festgehalten ist), so wird 
zum Spielabschluß übergegangen. Andernfalls ist der Anwen¬ 
der wieder am Zuge. 

Kann ein Zug ausgeführt werden, so wird zunächst der Mer¬ 
ker, ob ein Zug möglich ist, zurückgesetzt und anschlies¬ 
send die Position des Zuges ausgegeben, sowie der Zug 
selbst in dem Unterprogramm ab Zeile 6000 ausgeführt. Dazu 
wird vorher die Variable U auf ’l' gesetzt, was dem Unter¬ 
programm mitteilt, daß nicht nur die möglichen umkehrbaren 
Steine errechnet werden sollen, sondern diese auch umge¬ 
kehrt. Die Zahl der umgekehrten Steine wird in der Varia¬ 
blen S1 zurückgegeben, die dann zur Verrechnung der Com¬ 
putersteine und der des Spielers herangezogen wird. Die 
Zahl der Gesamtsteine hat sich natürlich nur um einen ein¬ 
zigen Stein erhöht. Die Anzahl der umgekehrten Steine wird 
anschließend noch vom Computer ausgegeben, sowie auch das 
neue Spielfeld. 

Das Spiel wäre nun zu Ende, wenn der Anwenderspieler kein 
Stein mehr hat oder das gesamte Spielfeld voll ist; dies 
wird in den Zeilen 3714 und 3750 überprüft. 


Zug des Spielers 

Genau wie beim Computerzug werden auch hier zunächst wie¬ 
der die Variablen TI und T2 besetzt. Hier braucht jedoch 
nicht mehr die Position des Zuges errechnet zu werden, 
sondern diese wird natürlich vom Spieler eingegeben. Dazu 
wird zunächst die Spalte in den Zeilen 4060 bis 4080 ein¬ 
gelesen und in den Zeilen 4090 bis 4120 die Zeilenangabe. 
In Zeile 4130 wird zunächst geprüft, ob der Spieler den 
Zug abgeben will (bei Eingabe einer '0'). Dieser Fall wird 
in den Zeilen ab 4160 behandelt, wobei das Spiel abgebro¬ 
chen wird, falls der Computer auch schon keine Zugmöglich¬ 
keit mehr gefunden hat (Z=l). Ansonsten wird zum Computer¬ 
zug übergegangen. 
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Eine Zeilennummer kleiner als Null oder größer als acht, 
nimmt der Computer nicht an und erwartet die Eingabe einer 
neuen Ziffer. Ansonsten wird das Programm in Zeile 4230 
fortgesetzt, indem zunächst geprüft wird (für alle Spalten 
zwecks Prüfung des Buchstabens) ob das Feld schon besetzt 
ist oder nicht. Wenn ja, so wird zur Erfragung eines neuen 
Zuges vom Spieler gesprungen. Dann wird ab Zeile 4370 ge¬ 
prüft, ob überhaupt ein Nachbar vorhanden ist (0 bedeutet 
kein Nachbar). Auch hier wird zur Erfassung eines neuen 
Spielzuges gesprungen, wenn ein logischer Eingabefehler 
vor 1 legt. 

Dann wird überprüft, ob überhaupt ein Stein umgekehrt wer¬ 
den kann. Dazu wird auch wieder das Unterprogramm ab Zeile 
6000 aufgerufen und vorher die Variable U auf '-1' ge¬ 
setzt, um zu dokumentieren, daß der Zug noch nicht aus¬ 
geführt werden soll. In der Variablen S1 wird festgehal¬ 
ten, wieviel Steine umgekehrt werden können. Wenn diese 
Null ist, so ist wiederum der Zug des Spielers ungültig, 
und er darf einen neuen eingeben. 

Sind alle Hürden genommen, so wird ein eventueller Merker 
für eine Weitergabe des Computerzuges wieder auf Null zu¬ 
rückgesetzt, der Merker, ob der Zug ausgeführt werden soll 
(U) auf '1' gesetzt und das Unterprogramm ab Zeile 6000 
aufgerufen, was den Zug dann auch ausführt. 

Die Variablen Hl, CI und NI werden analog dem oben be¬ 
schriebenen Computerzug aktualisiert, dann wird das Spiel¬ 
feld ausgegeben und wieder überprüft ob das Spielende vor¬ 
liegt. 


Spielende 

Beim Spielende werden die errechneten Werte (Steine je 
Spieler) vom Computer ausgegeben und ein Vergleich dieser 
beiden Zahlen angestellt. Aufgrund dieses Vergleiches wird 
festgestellt, wer gewonnen hat bzw. ob ein Unentschieden 
vorliegt. Darauf wird aufgrund der Zahl der Spielsteine 
des Computers eine Meldung über die Qualität des Spieles 
ausgegeben und abgefragt, ob ein weiteres Spiel durchge¬ 
führt werden soll oder nicht. 

Unterprogramme 

Zahl der Nachbarn errechnen 

In dem Unterprogramm zum Errechnen der Zahl der Nachbarn 
(und bei entsprechend gesetzter Variablen U auch zum in¬ 
vertieren entsprechender Spielsteine) wird zunächst die 
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Zahl der gefundenen Nachbarn (Variable Sl) anulliert. In 
der Schleife, die mit der Variablen K durchlaufen wird, 
werden alle acht möglichen Richtungen im Gegenuhrzeiger¬ 
sinn nach Nachbarn und auf einen eventuellen eigenen Be¬ 
grenzungsstein dieser Nachbarn überprüft. Zunächst wird 
den Variablen A5 und 35 die Richturig zugewiesen. Dies kann 
man sich am besten dadurch veranschaulichen, daß man sich 
die Eelder I4() und 34() in einem Koordinadensystem mit 
der Achsenbezeichnung I und J wie folgt aufzeichnet; 


(- 1 , 1 ) ( 0 , 1 ) ( 1 -, 1 ) 


-(-1,0)-akt 


Pkt. -(1,0)- 


(- 1 ,- 1 ) ( 0 ,- 1 ) ( 1 ,- 1 ) 

I 


I 


( 1 , 0 ) 


Dann wird in den Variablen H6 und 06 noch die aktuelle Po¬ 
sition am Spielfeld hinzuaddiert, und eine weitere Hilfs¬ 
variable zur Aufnahme eines Zwischenergebnisses (S3) anul¬ 
liert. Dieser Variablen wird nun die Positionsbewertung 
hinzuaddiert, wenn das Unterprogramm nur zum Errechnen der 
Nachbarn aufgerufen wurde (U = -1) oder lediglich eine 
hinzuaddiert, wenn die Nachbarn umgekehrt werden sollen. 

Anschließend wird in der gleichen vorgegebenen Richtung 
weitergearbeitet, indem jeweils zu der schon bestehenden 
Position nochmals die 'Richtung' aufaddiert wird. Ist der 
nächste Stein ein eigener Stein, so wird der Variablen Sl 
in Zeile 6180 die Anzahl der in diese Richtung gefundenen 
feindlichen Steine hinzuaddiert. Ist das Eeld unbesetzt, 
so wird mit der nächsten Richtung fortgefahren. Ansonsten 
wird auch dieser gegnerische Stein (eine andere Möglich¬ 
keit gibt es nun hier nicht mehr) wie der letzte behan¬ 
delt. Nachdem wie eben schon erwähnt die Anzahl der Steine 
bzw. der Matrixwerte aktualisiert wurde, wird abgefragt, 
ob das Spielfeld geändert werden soll oder nicht; wenn 
nicht, wird sofort zur nächsten Richtung übergegangen, 
andernfalls werden in den Zeilen 6210 bis 6270 die geg¬ 
nerischen Steine umgekehrt. Dies geschieht in einer 
Schleife, die für alle gefundenen Steine (0 bis S3) durch¬ 
laufen wird. Bemerkenswert ist hier, daß die Elemente der 
Matrix A() mit dem Wert der Variablen TI besetzt werden. 
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was zu diesem Zeitpunkt die Farbe der eigenen Spielsteine 
ist. Dies ergibt sich jeweils aus der Zuweisung am Anfang 
des Computer/Spielerzuges, wo entweder die Variable C bzw. 
H zugeordnet wird. Diesen Variablen wurden in den Zeilen 
1860,1870,1960 bzw. 1940 jeweils die Werte für B bzw. W 
zugeordnet, die wiederum an Anfang mit '-1' oder 
besetzt wurden. 


Prüfen auf Nachbar 

In diese kurzen Unterprogramme wird lediglich für alle 
acht umliegenden Felder (bzw. das eigene Feld der Einfach¬ 
heit halber sogar noch mit) überprüft, ob sich dort ein 
gegnerischer Stein befindet. Dementsprechend wird die Va¬ 
riable Fl mit 0 (kein Nachbar) bzw. 1 (Nachbar vorhanden) 
besetzt. 


Spielfeld ausgeben 

Die Ausgabe des Spielfeldes beginnt zunächst mit der An¬ 
zeige der Spaltenbeschriftung in den Buchstaben A bis H 
und der Ausgabe der Anzahl der Spielsteine für jeden Spie¬ 
ler. Die Variable V wird zur Berechnung eines Spielerwer¬ 
tes herangezogoin, der in der vorliegenen Version jedoch 
nicht ausgegeben wird. Man kann sich hier auch andere Be¬ 
wertungen einfallen lassen. In Zeile 8100 wird z.B. nach 
Ausgabe des aktuellen Feldelmentes am Bildschirm der Wert 
des Spielfeldelementes (das '-1','0' oder sein kann) 
mit dem Positionswert des entsprechenden Feldes multipli¬ 
ziert und dann aufaddiert. 

Die Zeilen 8070 bis 8110 beinhalten das Ausgeben einer 
Spielfeldzeile der oberen Hälfte und die Zeilen 8120 bis 
8160 der unteren Hälfte. 


Änderungen und Ergänzungen 


An REVERSI können relativ wenige Änderungen vorgenommen 
werden. Man kann aber zum einen die Bewertungsmatrix B( , ) 
optimieren, andererseits sich bessere Spielstrategien aus¬ 
denken. Ein Durchrechnen aller Möglichkeiten, und dadurch 
herausfinden der optimalen Position zum Setzen eines Stei¬ 
nes, dürfte wohl wegen der Komplexität und der dadurch be¬ 
nötigten Rechenzeit entfallen. 

Die einzigen einfachen Änderungen sind lediglich an der 
Optik des Spieles möglich. Am Anfang des Listings ist 
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schon eine andere Möglichkeit der Spielfeldausgabe be¬ 
schrieben. 

Wer will, kann sich auch noch eine Uhr in das Spiel ein¬ 
bauen, indem die Spielzeit für die einzelnen Spieler bzw. 
die Gesamtzeit gestoppt werden. Eine Auswertung des Spie¬ 
lergebnisses kann dann in Verbindung zwischen dem Verhält¬ 
nis der Spielsteine und dem Verhältnis der Denkzeiten er¬ 
folgen. 


! REVERSI 

1 



-1 

! 

1000 - 8200 ! 

! 

1 

! ! 

! Variablen: ! 

j j 

t 1 

! Name 

1 

! Typ 

! Bereich 

! Bedeutung ! 

! B 

! G 

! -1 


! Spielfarbe 'Schwarz' ! 

! Bl 

! H 

! -1 


! aktuell beste Position! 

! 

! 

! 


! für Computer I 

! C 

! G 

! -1, 

1 

1 Farbe Computer 1 

! CI 

! G 

! 2. . 

.64 

1 Anzahl Steine Computer! 

! Fl 

! R 

! 0,1 


! Flag (Merker) ob Nach-! 

! 

! 

! 


! bar vorhanden (ja=l) ! 

! H 

! G 

! -1, 

1 

! Farbe Spieler ! 

! Hl 

! G 

! 2. . 

.64 

! Anzahl Steine Spieler ! 

! H2 

! H 

! -1. 

. . 1 

! Faufvariable ! 

! H3 

! H 

! 0. . 

.8 

! Zwischenspeichern akt. ! 

! 

! 

1 


! beste Position ! 

! H5 

! H 

! 0. . 

.9 

! Zwischenspeichern ! 

! 

! 

1 


! Nachbar ! 

! H6 

! H 

! 0 . . 

.9 

! Zwischenspeichern ! 

! 

! 

j 


! Nachbar ! 

! I 

! H 

! 1 . . 

.9 

! Faufvariable ! 

! 

1 

! 1. . 

.8 

! Zeile Spieler (Wert ! 

! 

! 

! 


! von 1$) ! 

! 1$ 

! H 

! 1 Zeichen 

! von Tastatur (2.Zei- ! 

1 

! 

j 


! Chen Spieler) ! 

! 3 

! H 

! 1. . 

.9 

! Faufvariable ! 

! 31 

! H 

! -1. 

. . 1 

! Faufvariable ! 

! 33 

! H 

! 0. . 

.8 

! Zwischenspeichern akt.! 

! 

! 

1 


! beste Position ! 

! 35 

! H 

! 0. . 

.9 

! Zwischenspeichern ! 

! 

! 

! 


! Nachbar ! 

! 36 

1- 

! H 

II 

II o 

II CO 
II 

II 

II 

II 

II 

II 

II 

! Zwischenspeichern ! 
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! 

! Nachbar 


K 

! H 

! 1. . .8 

! Laufvariable 


Kl 

! H 

! 0. . .S3 

! Laufvariable 


NI 

! G 

! 4...64 

! Anzahl Steine Gesamt 


Q 

! H 

! 1. . .8 

! Laufvariable 


Q 

! H 

! 1. . .8 

! Laufvariable 


S 

! G 

! 0,2 

! Spielstärke 


S1 

! R 

! 0. ..21 

! umkehrbare Steine 


S3 

! H 

! ganzzahlig 

! Zahl der umkehrbaren 




! 

! je Richtung bzw. die 




! 

! Bewertung der entspr. 




! 

! Positionen 


TI 

! H 

! -1,1 

! Zwischenspeichern 




! 

! Farbe Spieler am Zug 


T2 

! H 

! -1,1 

! Zwischenspeichern 




! 

! Farbe Gegenspieler 


U 

! P 

! -1,1 

! Merker, ob Zug in UP 




! 

! 6000 ausgeführt werden! 



! 

1 soll 


V 

! H 

! ganzzahlig 

1 Berechnung des Spiel- 




! (auch negativ) 

1 wertes 


W 

! G 

! 1 

I Spielfarbe ’Weiss' 


x$ 

! H 

! 1 Zeichen 

1 von Tastatur 


z 

! G 

! 0,1 

1 Merker ob Zug möglich 



1 

1 

Felder 

( Arrays); 



! 

Name I 

Dirnen. 

1 Typ I 

Bereich I 

Bedeutung 

1 

A() 1 

9,9 

I G 1 

-1,0,1 1 

Spielfe Iri 

1 

A() 1 

9,9 

1 G 1 

2...7 1 

Positionsbewert. 


C$ I 

8 

! G I 

A,...,H I 

SpaItenbe sehrif. 


D$ 1 

2 

I G I 

2 Grafikzeichen! 

Spielstein obere 

! 

! 


! ! 

! 

Hälfte 

! 

E$ ! 

2 

1 G 1 

2 Grafikzeichen! 

Spielstein unte- 

1 

! 


! ! 

! 

re Hälfte 

! 

I4() 1 

8 

1 G ! 

-1,0,1 ! 

Richtungsvorgabe 


04() 1 

8 

I G 1 

-1,0,1 ! 

Richtungsvorgabe 

! 

Hl() 1 

8 

1 H 1 

-1,0,1 ! 

R ich tungsvorgabe 

! 

! 

1 

Unterprogrammaufrufe 



! 

i n I 

nach 

I Zweck 




2080 I 

8030 

I Spielfeld ausgeben 
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1- 

! 2130 ! 

8030 ! 

Spielfeld ausgeben 


! 3210 ! 

7000 ! 

auf Nachbar prüfen 


! 3290 ! 

6000 ! 

Wert errechnen 


! 3620 ! 

6000 ! 

Wert errechnen 


! 3700 ! 

8030 ! 

Spielfeld ausgeben 


! 4370 ! 

7000 ! 

auf Nachbar prüfen 


! 4470 ! 

6000 ! 

Wert errechnen 


! 4560 ! 

6000 ! 

Wert errechnen 


! Verzweigungen 

1 

nach außen : 


! i n Ze ! 

nach 

! Bedingung 

Bemerkung 

! 5300 ! 

END 

! normales Ende 






















2 

Wirtschaftsspiele 
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2. Wirtschaftsspiele 


Nach den Kampf- und Strategiespielen - nehmen wohl die 
Wirtschaftsspiele auf dem allgemeinen Markt eine bedeu¬ 
tende Stellung ein. Wir haben für Sie ein Börsenspiel aus¬ 
gewählt, bei dem Sie selbst den Aktienkurs beeinflußen 
können und ein recht komplexes Wirtschaftsspiel, das ein 
Unternehmen ziemlich genau nachbildet. Wir empfehlen die¬ 
ses Wirtschaftsspiel mit mindestens drei Personen zu spie¬ 
len, da es dann erst seine Reize voll entfaltet. Bevor Sie 
dieses Programm ändern, sollten Sie jedoch zuerst ein paar 
Runden spielen und die Bedienungsanleitung ausgiebig stu- 
d ieren. 


2.1 BOERSE 


BOERSE ist ein Börsenspiel, bei dem sie im Gegensatz zu 
den meisten angebotenen Programmen, die Aktienkurse selbst 
beeinflussen können. Stellen sie sich vor, sie wären ein 
versierter Wirtschaftsmanager und können durch eingestreu¬ 
te Gerüchte Aktienkurse beeinflussen (im Großen ist es ja 
nicht viel anders). 


Spielanleitung 

Nach dem sie das Programm ähnlich wie die vorhergehenden 
auch, mit LOAD “BOERSE",8 (RETURN) geladen, und mit R-U-N 
(RETURN) gestartet haben, fragt der Computer zunächst nach 
der Anzahl der Mitspieler und anschließend nach den Namen 
der einzelnen Mitspieler. 

Haben sie alle Namen eingegeben, so erscheint für den er¬ 
sten Spieler das Auswahlmenü. Hier können Sie entscheiden, 
ob Sie sich die Aktienstände anzeigen lassen wollen oder 
ob Sie kaufen oder verkaufen. 


Aktienstand anzeigen 

Entscheiden Sie sich zum Anzeigen des Aktienstandes, so 
bringt der Rechner für die vorhandenen 20 Aktien jeweils 
die laufende Nummer, den Aktiennamen, Ihre eigene bereits 
gekaufte Zahl zu jeder Aktie und den Aktienkurs. Zum 
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Spielbeginn ist der Aktienkurs für alle Aktien 100. Oeder 
Spieler hat ein Bargeldvolumen von 10000 Geldeinheiten. 
Dieses Bargeld wird am unteren Ende des Aktienstandes an¬ 
gezeigt. Außerdem fragt der Rechner gleich wieder, ob Sie 
kaufen wollen oder nicht. 


Aktien kaufen / verkaufen 

Geben sie ein ’D' für 'kaufen' ein, so zeigt der Rechner 
nochmals die Aktiennummer, den Namen und die bereits bei 
ihnen vorhandene Stückzahl für alle Aktien. Anschließend 
erfragt er die Aktiennummer. Geben Sie bitte entsprechend 
die vor dem Aktiennamen stehende Zahl an und drücken Sie 
anschließend die RETURN-Taste. 

Dann erfragt der Rechner, wieviele Aktien Sie kaufen wol¬ 
len. Geben Sie auch hier die entsprechende Zahl ein. Pro 
Eirma sind zu Beginn je 100 Aktien vorhanden, die sich je¬ 
weils um weitere 10 Aktien erhöhen, wenn eine Eirma Divi¬ 
dende ausgezahlt hat. Mit der Anzahl der Aktien, die Sie 
kaufen, beeinflussen Sie auch zwangsläufig den Aktienkurs. 
Oe gekaufte Aktie erhöht sich der Aktienkurs anschließend 
um einen Punkt. Das heißt. Sie haben schon durch das Kau¬ 
fen verdient. 

Dann fragt der Rechner, ob Sie verkaufen wollen. Das Ver¬ 
kaufen geschieht analog zum Ankauf der Aktien. 

Haben sie auch Aktien verkauft oder sich gegen das Verkau¬ 
fen mit 'N' entschieden, so fragt der Rechner 'weiter ?'. 
Hier können sie mit '0' angeben, ob sie weitere Transak¬ 
tionen tätigen wollen oder nicht ('N'). 

Da beim Kauf die Aktienkurse je gekaufte Aktien um einen 
Punkt erhöht werden, und beim Verkaufen der Aktien der 
Kurs jeweils einen halben Punkt je Aktie erniedrigt wird, 
kann man natürlich schon damit Geschäfte machen, daß man 
Aktien aufkauft und sofort wieder verkauft. Um dies auf 
Dauer zu unterbinden darf jeder Spieler bis zu 4 Transak¬ 
tionen tätigen. Das heißt die Abfrage 'weiter ?' erscheint 
nach 4 Transaktionen nicht mehr, sondern es wird gleich 
zur Ausgabe des Zwischenergebnisses übergegangen, wie es 
auch geschieht, wenn Sie bei der Abfrage 'WEITER ?' ein 
'N' eingeben. 


Zwischenübersicht 

In der Zwischenübersicht werden die Spieler ihrem Kapital 
(Bargeld zuzüglich Aktienvermögen) nach sortiert darge- 
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stellt. Das heißt, der als erster genannte Spieler ist 
auch der Beste zu diesem Zeitpunkt. Ausgegeben werden die 
Position des Spielers, der Name des Spielers, sein Kapital 
und die bisher gezahlten Gebühren. 

Bei jeder Transaktion müssen ein 1/50 vom Kaufpreis bzw. 
Verkaufspreis als Gebühren entrichtet werden (im Großen 
sind das Provisionen bzw. die Börsenumsatzsteuer). Diese 
Gebühren werden für jeden Spieler immer aufsummiert, so 
daß man anhand der Gebühren einen Anhalt hat, welcher 
Spieler viele Käufe/Verkäufe getätigt hat und welcher 
Spieler nicht. 

Auch wenn Sie keine Aktien kaufen, erhöht sich Ihr Kapi¬ 
tal. Oe Spielrunde werden für jeden Spieler 1% Zinsen zum 
Kapital hinzu addiert bzw. bei negativem Kapitalstand ab¬ 
gezogen. 

Aktienkurse beeinflußen 

Die Zwischenübersicht verlassen Sie, indem Sie irgendeine 
Taste drücken. Es erscheint dann eine Tabelle, die Ihnen 
angibt, welche Aktienkurse Sie beeinflussen können. 

Diese Tabelle wird je Spielrunde um drei weitere Aktienbe¬ 
einflussungen ergänzt. Sie können bis zu zwanzig Beein¬ 
flussungen 'sammeln'. Solange Sie weniger als 17 Beein¬ 
flussungsmöglichkeiten haben, werden jeweils immer wieder 
drei neue in jeder Runde hinzugefügt. 

Der Rechner fragt Sie nun 

'WELCHE NUMMER AUSFÜHREN ?' 

Geben Sie hier bitte die der Aktienkursänderung vorange¬ 
stellte Ziffer ein. Drücken Sie dann die RETURN-Taste. 
Wenn Sie nichts ausführen wollen - was in der ersten Runde 
zu empfehlen ist - , so geben Sie einfach eine '0' ein. 
Ein kleiner Tip: Merken Sie sich, welche Aktienkurse in 
welche Richtung beeinflusst werden können, so daß Sie das 
nächste mal, wenn Sie an der Reihe sind, die entsprechen¬ 
den Aktien kaufen bzw. verkaufen. 

Nachdem Sie alle Ihre gewünschten Beeinflussungsmöglich¬ 
keiten in den Rechner eingegeben haben, erscheint das kur¬ 
ze Menü für den nächsten Spieler und dieser kann seine 
Spielzüge eingeben. 

Durch das laufende Zwischenergebnis wurde kein Programm-' 
ende eingebaut. Wollen Sie nicht weiter spielen, so drük- 
ken Sie lediglich die STOP-Taste. 
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Programmlisting 


:l. 000 R E [■'l H'i :+i i+i jf: H'i j|fi+i i+; i+i :+: ?►: 4::+: j|H i+i i+i :+: i+:;+: 4: # if i+i 

1010 REM 'K B 0 E R S E * 

1020 REM ***j|ti’Ni4***!+i*Hti****;f 
11030 : 

104© : 

:l. 050 RE M + Sb t '■■¥ 4; i+; * 4 4: 4 ;:'K 4; * i+; 4; * * W. * sif :f if * jlt ^ i'^:;+; * * 

1060 REM * VORSF-'RHH * 

.1 0?e REM :+i*H’:*:+i**:'B'MF:*4****HoFi*:'K**?l':;'H4;*********i+:******i+:*4;* 
:l 0 3 0 P 0 K E5 3280,. 8 
1030 PÜK:E53281 ,S 
1100 1 : 

1110 REM -RKTIEHDPlTEN BESETZEN —------ 

1 120 : 

1 130 DRTRREG ,. BR3FDRTRSRRBHORTEN... LUFTHRNSR 
1 140 DRTRSI EMENS , 1BMCOMMODORE , NES TLE., 'v'W 
1150 DRTRMERCEDES ^ OPEL.,. FORDKRUFHOFKRRSTRDT 
1 160 DR T RHOCH TIEF-FlFlFFl... C RNONI<0DRF<LIFR 
1 1V'0 DIMRlFTCBOi 
1130 FORl“lTü20 
1 190 RERDRKirC 1 T 
12010 NEXT 

1210 FKTCO ::■:=;"-" 

1220 DIMRKCZO,. 1 > 

12:30 FORI = 1TO20 
1240 RFÜ <: I0 = 100 
1250 Rh:X I ... 1 ::' = 100 
1260 NEXT 
1270 ! 

1280 REM -SPIELERDRTEN UND FELDER- 

12901 : 

1:300 INPUT " ."aiF'J IEVIELE MI TSF=' IELER " ; MI 
1310 D1MGE'::MI> 

1320 DIMHICMi;' 

1330 DIMRR■::MI ,201 > 

1340 Dir'1H2a'1I> 

1350 DIMSTCM 11 
1:360 F0RI=:1T0MI 

1370 PRINT"D" .? I ; " -TER ;5PIELER"; 

13£;;0 INPUTSTCIl 

1390 he:^-tt 

1400 DIMSPCMI , 20 ::' 

1410 F0RI=1T0MI 
14 2 ©1 S P C I0 — 100001 
1430 NEXT 
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2000 REN ********************************J^***:^■;**^|H*Ho^;ii|f* 
2010 REN * SPIELZUG * 

2 012 0 REN 4: i+: ;+:+ i+: * i+-::+ i+::+ Hf :+■:+ iliüih J|f:+ jH i'K ?|i; iilii:+: :'|i: :+: sH j|f jli; üH :+ H'; i+i:+ .+■ 

20301 ! 

2040 REN -SPlELERNENUE--— ..- — 

201501 : 

2 0 E< y S^P—S F' “h 1 

2070 IFSP>NITHENSP=1 

2080 PR INT "33 SPIELER : " “ ST C SP " 

2090 PR I NT " :tlT.i!Mii !lE!liiHi» » r Hl<T I ENSTFlHD -> R" 

2100 PRINT"SffiMB&lMiJt!.if-RUF'EIJ -> J,-'N" 

2110 GETRT 

2120 IFRT="n"THENGOSUBS000 
2130 I FRT== " J " THENGOTO:3030 
2140 IFRT="H"THENGGT04030 
2150 GOT02110 

3000 REN 4:4:4^44^44 

3010 REN 4 RKTIEN KR OFEN 4 

3020 REN 444444444444444444444444444444444444444444444 
3030 PRINT"3"; 

3040 FORI~1TO20 

3050 PR I NT I flK:T I > SP C SPI > 

3060 NENT 

3070 INPIJT " aaiRKT IENNUNNER " ; RN 
3080 IFRN<1ORRN720THEN3070 
3090 INPUT " HI £'■,■' I ELEll" W 
3100 IFN=0THEN48 30 

3110 IFN>RI<'::RN.,0::'THENPRINT"ES sind nur " ;RI<<RN,0;:'; 

3120 I F'NTRK <: RH ,.0>THENPR INT "RKTIEN RUF DEN NRRKT" 

O3OTO:3090 

3130 IFSP';SP.,0::'<:RK'::RN,. 1 ::'4UTHENF'RINT"ZUWENIi3 BRRGELD" 

s GO TO 30:90 

3140 s p t: SP0 > :=s p <: s p, 0 - 1 14 r k <: r n 1 > - w 4 r k: c r h 1 .■■■' 5 0 

3150 V=:=V+1 

3160 RK RN0 > =RK RNFi ::i -H 
3170 GE C SP > =:GE SP > +W4RI< C RH1 3 .-'SG 
3180 SPSPRN > =SP SPRN i +W 
3190 RK ■:: RN... 1 =RI< F RN1 ::■ +W 

4000 REN 444444444444444444444444444444444444444444444 
4010 REN 4 RKTIEN VERKFlUFEN 4 

413 213 R E.' N 444444:444444444:4444.44:4444.44:44:4:4:44:4:44:444444444 
4030 PRINT'"v'ERKRUFEN .J,-'N" 

4040 GETRT 

4050 I FRT^=" J " THEN4080 
4060 IFRT="N"THEN4230 
4070 G O T04040 
4030 PF?IHT"3" .? 

4090 FORI = 1T0201 
41 @0 PR I NT I , RKT I SP SPI 

4110 ne:kt 

4 120 I HF'UT " a.®TKT IENNUNNER" ; RN 
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4130 IFRH<1nRRH>20THEH4 1 20 
4140 IHPUT " WIEVI ELEl" ; l’J 

4150 ifsP'::sp.,rh::'<:wthehpriht"hicht genug RKTIEM " 

4160 IFSP C SP... RU -iNTHEHPR I NT " VORHRNDEH " : G0T04140 
4170 SP SP0 > =SP <: SP0 -hNi-KRK RN1-Wi-HRK RN1 j /GR 
41801 V==V+1 

4190 GE <: SP =GE C SP > +U*RK RN1 j ,''50 
4200 RK <: RN1 =RK RN , 1 > -1 NT C N/2 J 
4210 SP SPRN > ==SP CSPRH ;■ -W 
4220 RK C RN0 =RK RN0 > i-W 
4230 IFV>4TI-IENV==0 ;;GOTO4290 
4240 PR INT "WEITER ? J.-'N 

4250 GETR^: 

4260 IFR^=".J"THEN2080 
4270 I FR4:= " N " THEN4290 
4280 Ci Ü T04250 
4290 PRINT"D" 

4300 : 

4310 REN - VERNOEGEN DER SPIELER ERRECHNEN - 

4320 : 

4330 FÜRI=1T0NI 
4340 Hl C I ::'==:SP':: I ,0::- 
4350 F 0 R ■ J=0 T 0 2 0 

4360 H1 I =H 1 C I ü -hSPC I , J ü *RK C J'... 1 i' 

4370 HENT 
4380 NEKT 
4390 PRINT"3" 

5000 REN *i'h*H>:HiH<*Hi*H>:iH***4:*jH****H<iKiK**;'|fif**:+i***i+;***H«***i+i** 
5010 REN * SPIELSTRND RNZEIGEN * 

5020 REN 

5030 PR INT "STELLE" "NRNE" "KflPITRL" "GEBUEHR" 

5040 PRI NT:PRINT : PRI NT : PRINT 
5050 FORI = 1711011 
5060 FORJ=lTnNI 

5070 I FH 1 C J > >H2THENH2=H 1 < J i' : WÜ=J 
51380 NEKT 

5090 PR I NT I Sir NO ;■ , I NT C H1 C WO > ;■I NT C GE C WO j 

5100 H1'::WO;:'=0 

5110 WO=0 

5120 H2=0 

5130 NENT 

5140 PR I NT " MüMtlW TRSTE " 

5150 WRIT19S.. 1 
5160 P 0 K E19 8 .r 0 
6000 REN 

6010 REN * RKTIENKÜRSE BEEINFLUSSEN * 

6020 REN *4:****if*4:*i'h***lili**li#:+iHi**iHihi*i|i**4:***H>::****Hi*H^^ 
6030 PRINT"3" 

6040 IFH2 SP ü < 17THEN6090 
60150 GOT06200 
601601 : 
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6070 REH --- HEUE BEEINFLUSSUNÜSHOEGLICHEEITEN .. 

60S0 ; 

019 0 F 0 F: I = 1T 0 3 

6100 Z C I ::■ = I NT C 30*RHD C 6 > >-10 
61 1 © Zfl C I ::■ = I NT 0 20s|(RHD C 6 > > + 1 
6120 flH 0 SP r H2 <! SF' > +1 0 > —Z ( I > 

6130 00 SF-'02 C SP > -i I 1 > =Z0 C I 
6140 HEXT 

<5150 02 C SP > =02 C SP ;■ -1-3 
61610 : 

6170 REH - BEEIHFLUSSUH0 DURCHFUEHREH - 

61S0 : 

6190 PIRIHT"J 
62001 F 0 FR 1 = 1 T 0 2 0 

6210 PR i: HTI .. 00 SPI ,0 > , RKiP C 00 C SP , I 1 
6220 HEXT 

6230 PR1:HT";!3J.'JELCHE HLIHHER 0USFUEHREH ? " 

6240 INPÜTHR 

6250 IFHR>19THEH6230 

6260 IFHR=0THEH6350 

627'0 0I< 00 SP F-IR1 > 1 > =RE < 00 C SP F-IR1 i , 1 ü -h001 SF-'F-IFR0 > 

6230 02 C SP =02 SP > -1 

6290 F0RI=HF;T019 

6::300 00 C SP -1,-0 > =00 SP,-1 -h 1,- 0 > 

6310 FIFI SF=',-1 .- 1 =FF0 C SF',- I -i-1 ,-1 > 

6320 HEXT 

6 3 Fl 0 0 Fl S F',- 20,-0-'= 0 
6340 GiSTOiS 1 '9Gi 

6 3 '5 0 S F' <: S P,- 0 > = S P 'F S P,- 0 > -h S F-' S F-',- 0 > ' 100 
6360 F-0RI = 11020 
6370 Z=3 0 ■■¥■ F: H D 'F 5 :> 

63S0 I FZ< 1 „ 50HD0F< 'F 1 ,- 1 F’ >300 F HEHS0= I : GOSUB9000 
6390 F-IEXT' 

6400 Gilil'02000 
6410 EHD 
3000 RIEH 

8010 REH * RFCTIEHSThHD HF-IZEIGEH * 

S FFi 2 0 R EH ¥ * i'F * * * * sF * ¥ :■! ¥ * ¥ ¥ iF * H'i * * l'i ****************** * * 

S030 PR:[HT"a" 

Ciiü'lti l='F: I NT'" |■■IUHF'■|ER " " HF;;T I E" " RHETiHF- " ,- "STFIHD " 

8050 FRIF-IT 
3060 FIJ F! I = 1 ’F' 0 2 £i 

8070 PR 1 HT I ,- FiKT 1 ;■ ,- SP SP,- 1 -■ ,- fl*: 1,- 1 > 

8030 HEIZT 

3080 PF: I NT " BHIRGELD " ,; SP 'F SP,- 01 
3100 PF:lHT"Kfll,.IFEH J, 'H 
8110 F:ETI,IRH 

9000 REH ********************************************* 
9010 REH * DIVIDEF-IDE HUSZFIHLEH * 

9020 REH ********************************************* 
9030 Fl F< 'F S D ,- 0 F' = 0 F, 'F S B ,- 0 > H 1 0 
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9040 

F0RK=1TÜMI 




1 F'SF^ < [■:... SD :>; 0THE9 ISP K 

, kl ::i =SP F l< ,r 0 > -I-20C 

hfS 

9Gb 0 

HEXT 



9070 

HK SD .. :l. = HK C SD:l. > - 20i 

0 


9080 

F'Fi: IN T ’ ■ :t e 

FIRMH": 


9090 

pp IHT " SDäülJMÜllÄÜUa" : eik:t 

SD > 


9100 

PR IH T " «[gMiaMZHHE T 200 

DM DTVIDEl'MOE" 


9 L 10 

FÜR JK:= 1 T 05000 



9120 

HEXT 



i-' :l. ::::0 

RETURN 




Programmbeschreibung 


Das Programm BOERSE ist zeilennummernmäßig wie folgt un- 
terteiIt: 


1000 - 1430 Vorspann 
2000 - 2150 Spielermenü 
3000 - 3190 Aktien kaufen 
4000 - 4220 Aktien verkaufen 

4230 - 4390 Vorbereitung für Spielstancisanze i ge / 
weiterer Zug 

5000 - 5160 Spielstand anzeigen 
6000 - 6410 Aktienkurse beeinflussen 


Unterprogramme: 

8000 - 8110 Aktienstand anzeigen 
9000 - 9130 Dividende auszahlen 


Vorspann 

Im Vorspann werden wie üblich zunächst Hintergrund- und 
Rahmenfarbe gesetzt und-dann die veschiedenen Aktiennamen 
aus DATA-Anweisungen übernommen. Anschließend wird in den 
Zeilen 1220 bis 1260 für jede Aktie der Wert auf 100 Ein¬ 
heiten gesetzt und die vorhandene Menge am Markt ebenfalls 
auf 100 Stück. 

Dann wird die Anzahl der Mitspieler vom Bildschirm erfragt 
und die entsprechenden Felder (s. Kasten) für die benötig¬ 
te Information je Mitspieler werden dimensioniert und vor¬ 
besetzt (Name, SpieIkapita1). 


Spielzug 
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Beim Spielzug wird zunächst der nächste Spieler ausge¬ 
wählt. War der letzte Spieler an der Reihe, so wird auto¬ 
matisch der Spielzug wieder an den ersten Spieler überge¬ 
ben. 

Dieser Spieler kann nun im Menü entscheiden, ob er sich 
den Aktienstand anzeigen lassen oder Aktien kaufen will. 
Die Zeilen 2120 bis 2140 enthalten den Sprungverteiler in 
Abhängigkeit von dem im Menü gewählten Buchstaben. 


Aktien kaufen 

Beim Aktienkauf werden - wie in der Spielanleitung schon 
beschrieben - zunächst alle Aktien nummernmäßig und mit 
der vorhandenen Anzahl beim jeweiligen Spieler angezeigt. 
Danach erfragt der Rechner in Zeile 3070 die Aktiennummer 
und überprüft diese in Zeile 3080. 

Dann wird die gewünschte Zahl der zu kaufenden Aktien vom 
Bildschirm erfragt. Wurde eine '0' angegeben, so wird 
gleich zur Frage 'VERKAUFEN 0/N' übergegangen. Ist der 
Kaufwunsch größer als die Zahl der auf dem Markt vorhan¬ 
denen Aktien, so wird in den Zeilen 3110 bis 3120 eine 
Meldung ausgegeben, die die Zahl der vorhandenen Aktien 
enthält, um langes Herumprobieren zu vermeiden. 

Die nächste Plausibilitätsprüfung findet bezüglich der 
Bonität statt. In Zeile 3030 wird geprüft, ob überhaupt 
soviel Bargeld für den Kauf der Aktien vorhanden ist. 

Die Berechnungen im Folgenden und auch beim Verkauf der 
Aktien muten zwar etwas kompliziert an sind aber - wenn 
man sich die Bedeutung der Variablen veanschaulicht - 
recht einfach. In Zeile 3140 wird vom Barkapital der Preis 
für die gekauften Aktien abgezogen, sowie die Gebühr, die 
1/50 der Kaufsumme ausmacht. Beachten Sie hier bitte, daß 
die Variable SP(,) nichts mit der Variablen SP zu tun hat. 
SP gibt die Nummer des aktuellen Spielers an und in SP(,) 
sind die Aktien abgelegt, wobei das Feldelement SP(SP,0) 
das Bargeld enthält. 

In Zeile 3150 wird in der Variablen Y der Zähler für die 
Aktivitäten erhöht, um zu verhindern, daß ein Spieler 
stundenlang nur Aktien ankauft und verkauft und durch die¬ 
se Transaktion seinen alleinigen Gewinn tätigt. 

In Zeile 3160 wird die Zahl der Aktien auf dem Markt um 
die gekaufte Anzahl verringert, und in Zeile 3170 wird der 
Zähler für die Gebühr des Spielers entsprechend erhöht. In 
Zeile 3180 wird dem Spieler die Anzahl der gekauften Ak- 
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tien unter der entsprechenden Nummer in seinem Feld gutge¬ 
schrieben, und in Zeile 3190 wird der Aktienkurs um soviel 
Punkte erhöht, wie Aktien gekauft wurden. 


Verkaufen 

Im Gegensatz zum Aktienkauf wird der Verkauf immer perma¬ 
nent nach dem Kauf von Aktien abgefragt, da natürlich eine 
kurze Entscheidung des Spielers möglich sein muß, ob er 
überhaupt verkaufen will. Auch hier werden zunächst wieder 
die Aktien und die Stückzahl beim aktuellen Spieler ange¬ 
zeigt. Analog zum Kauf der Aktien wird auch die Aktiennum¬ 
mer erfragt, die in Zeile 4130 auf Plausibilität geprüft 
wird, und die Anzahl der zu verkaufenden Aktien. 

In den Zeilen 4150 und 4160 wird abgeprüft, ob der Spieler 
mehr Aktien verkaufen will, als er überhaupt besitzt. 

Das restliche Programmstück arbeitet analog zum Programm¬ 
stück für den Aktienkauf, nur mit anderen Vorzeichen: in 
Zeile 4170 wird der durch den Verkauf der Aktien erzielte 
Gewinn dem Spielerkapital gutgeschrieben, allerdings wer¬ 
den 50% Gebühren vom Verkaufserlös abgezogen. Entsprechend 
dem Kauf von Aktien wird auch in Zeile 4180 der Zähler für 
die Aktivitäten erhöht, und die Gebühren in dem Eeld GE() 
entsprechend für den Spieler aufsummiert. In Zeile 4200 
wird der Aktienkurs nicht um die gesamte Zahl der verkauf¬ 
ten Aktien erniedrigt, sondern nur um die Hälfte (gegebe¬ 
nenfalls abgerundet). Dies bewirkt eine kontinuierliche 
Steigerung aller Aktienkurse, wenn sie regelmäßig ge- und 
verkauft werden. Damit kommt man um einiges öfter in den 
unten beschriebenen Bereich der Dividendenausschüttung, 
und das Spiel erhält so seinen zusätzlichen Reiz. 

In Zeile 4210 wird noch die Aktienzahl beim Spieler abge¬ 
zogen und Zeile 4220 der Verkaufserlös gutgeschrieben. 

In Zeile 4230 wird geprüft, ob der Spieler bereits mehr 
als 4 Aktivitäten getätigt hat. In diesem Falle wird die 
Variable Y auf 0 gesetzt und das folgende Menü übersprun¬ 
gen. In diesem Menü wird gefragt, ob der Spieler weitere 
Aktivitäten tätigen möchte; wenn ja, wird wieder zum Spie¬ 
lermenü gesprungen. 


Vermögen aller Spieler errechnen 

In der geschachtelten Schleife in den Zeilen 4330 bis 4380 
wird das Vermögen für jeden Spieler errechnet. Dazu wird 
in einer Schleife für alle Spieler (Laufvariable I) zu- 
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nächst das Bargeld in die Hilfsvariablen Hl( ) transfe¬ 
riert. Anschließend wird in einer weiteren Schleife für 
alle Aktienkurse (Lauf variable D) die beim Spieler vor¬ 
handene Aktienzahl mit dem derzeitigen Aktienwert multi¬ 
pliziert und in den Variablen Hl() aufsummiert. 


Spielstandanzeigen 

Die Variable Hl( ) wurde verwendet, um das folgende Sor¬ 
tierprogramm relativ einfach zu gestalten. Das kurze Sor¬ 
tierprogramm in den Zeilen 5050 bis 5130 sucht jeweils den 
Spieler mit dem höchsten Vermögen heraus und druckt diesen 
aus. Anschließend wird dessen Vermögen auf 0 gesetzt (Zei¬ 
le 5100), so daß dieser an der weiteren Auswertung nicht 
mehr teilnimmt. Ebenso werden die beiden Hilfsvariablen WO 
und H2 auf 0 zurückgesetzt, da sonst in den weiteren 
Schleifendurchläufen kein neues Maximum mehr gefunden wür¬ 
de. 


Das Spielermenü wird durch einfaches Drücken einer Taste 
verlassen. An dieser Stelle wurde der WAIT-Befehl verwen¬ 
det, der (bezogen auf Speicherzelle 198 im RAM) abfragt, 
ob ein Zeichen im Tastaturpuffer vorhanden ist. Um eine 
weitere Verarbeitung dieses Zeichens (beim Auswählen der 
Aktienbeeinflussungen) zu verhindern muß in Zeile 5160 an¬ 
schließend sofort dieser Wert wieder auf 0 zurückgesetzt 
werden. 


Aktienkurse beeinflussen 

Zunächst wird gefragt, ob bei dem Spieler weniger als 17 
Beeinflussungsmöglichkeiten gespeichert sind. In diesem 
Falle wird in dem kurzen Programmstück zwischen den Zeilen 
6090 und 6150 dreimal eine Zufallsauswahl getroffen, wel¬ 
che Aktie (Zeile 6110) und in welcher Höhe (Zeile 6100) 
eine Beeinflussung gewählt werden kann. Die Zeilen 6120 
und 6130 übernehmen diese Daten nur in die Matrix AA(,,). 

Dann wird gleich zur Ausgabe der Beeinflussungsmöglich¬ 
keiten gesprungen, die sich in den Zeilen 6200 bis 6420 
befindet. Dann kann der Spieler eine Nummer anwählen, die 
in Zeile 6250 noch auf Plausibilität geprüft wird. Wird 
eine ’O' angegeben, so wird sogleich zum Berechnen der 
Zinsen gesprungen, im anderen Fall wird der Aktienkurs 
entsprechend beeinflußt (Zeile 6270), die Anzahl der Be¬ 
einflussungsmöglichkeiten zurückgesetzt (Zeile 6280) und 
alle folgenden Beinflussungsmöglichkeiten der Matrix nach¬ 
gezogen (Zeile 6290 bis 6320). In Zeile 6330 wird noch 
eine 'neutrale' Beeinflussungsmöglichkeit nachgezogen. 
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Der Spieler kann so lange Aktien beeinflussen, bis er ein 
'0' eingibt. 

In der nächsten Schleife wird noch überprüft, ob eine Di¬ 
videndenausschüttung getätigt werden soll. Dazu wird zu¬ 
nächst eine Zufallszahl generiert, die in 1/20 der Fälle 
aktiv wird. Zweite Bedingung ist, daß der Aktienstand grö¬ 
ßer als 300 ist. Wenn beide Bedingungen erfüllt sind, wird 
das Unterprogramm ab Zeile 9000 aufgerufen. Anschließend 
ist der nächste Spieler am Zuge. 

Unterprogramme 


Aktienstand anzeigen 

In dem Unterprogramm ab Zeile 8000 wird der Aktienstand 
für alle Aktien, sowie das Bargeld des gerade aktuellen 
Spielers angezeigt. Anschließend erfolgt sofort schon die 
Ausgabe für die Abfrage 'KAUFEN 0/N'. 


Dividende auszahlen 

Wie bereits vorher erwähnt, wird bei Auszahlung einer Di¬ 
vidende auch die Zahl der auf dem Markt befindlichen Ak¬ 
tien um 10 Einheiten erhöht (Zeile 9030). Durch steigende 
Aktienkurse und dadurch höhere Spie 1 vermögen wäre es sonst 
nach einiger Zeit ein recht langweiliges Spiel, da jeder 
Spieler auf seinen Aktien sitzen bleibt. Durch dieses Zu¬ 
fallsmoment der Dividendenauszahlung und gleichzeitiger 
Erhöhung der Aktienzahl muß man bei dem Spiel doch einiges 
an Intuition aufwenden. Spieler, die die Regeln der Divi¬ 
dendenauszahlung kennen, sind sicherlich im Vorteil. 

In den Zeilen 9040 bis 9060 wird das Bargeld eines jeden 
Spielers, der diese Aktie besitzt, für jede Aktie um 200 
Geldeinheiten erhöht. In Zeile 9070 wird der Aktienkurs um 
die entsprechende Punktzahl zurückgesetzt und im weiteren 
eine Bildschirmmeldung ausgegeben. 


Änderungen und Ergänzungen 


Das Börsenspiel ist vom Bildschirmaufbau recht schlicht 
gehalten. Hier bietet sich für den interessierten Leser 
ein weites Betätigungsfeld. Dies gilt sowohl für die Farb¬ 
gestaltung als auch für den eigentlichen Bildschirmaufbau. 

Um die Anzeigen auf dem Bildschirm noch etwas ausführli- 
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eher zu gestalten, kann man z.B. bei Anzeigen des Aktien¬ 
standes die Kommata in den PRINT-Befehlen durch Semikolons 
ersetzen (Achtung: Zahlen müssen dann formatiert werden) 
und z.B. noch die Anzahl der am Markt befindlichen Aktien 
ausgeben. 

Im Spielablauf könnte z.B. noch ein Splitting der Aktien 
eingeführt werden,so daß bei einer bestimmten Höhe der Ak¬ 
tien (z.B. 500 Einheiten) die Aktienzahl verdoppelt und 
der Aktienwert halbiert wird. Dieser Vorgang ist dann na¬ 
türlich für jeden einzelnen Spieler durchzuführen, aber 
auch der Markt darf nicht vergessen werden. 

Wer will, kann sich auch die Aktienkurse in einer Matrix 
Zwischenspeichern und mit Bildschirmgrafik (Balkendia¬ 
grammen oder sogar hochauflösender Grafik) in einem Un¬ 
terprogramm einen Trend für eine Aktie anzeigen lassen. 


! BÖRSE 



1000 - 9130 

! Variablen: 

1 

! Name 

! Typ 

! Bereich 


! Bedeutung 

! A$ 

! H 

! 1 Zeichen 

(0/N) 

! von Tastatur 

! AN 

! T 

! 1...20 


! Aktiennummer, die 



! 


! gerade verkauft oder 



1 


! gekauft wird 

! H2 

! H 

! Ganzzahlig 


! Maximales Vermögen 



1 


! beim Sortieren 

! I 

! H 

! 1...20 / 1 

. . .MI 

! Laufvariable 



! 1. . .3 


! 

! D 

! H 

! 1...20 / 1 

. . .MI 

! Laufvariable 

! OK 

! H 

! 1...5000 


! Laufvariable 

! MI 

! G 

! Ganzzahlig 


! Mitspielerzahl 

! NR 

! H 

! 1...20 


! Nummer der Beeinfl.- 



! 


! liste 

! SD 

! E 

! 1...20 


! Aktiennummer für Divi- 



! 


! dendenausschüttung 

! SP 

! G 

! 1...MI 


! Nummer des aktuellen 



! 


! Spielers 

! W 

! T 

! 1_100... 


! Anzahl der Aktien, die 



i 


! verkauft/gekauft werd. 

! WO 

! H 

! 1...MI 


! Spieler mit dem ak- 


! 
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! 


! 




! tuen 

höchsten Vermö- 

! 


! 




! qen 

während des Sort. 

Y ! 

H 

! 

0. 

. .4 


! Zähler 

für Aktivitäten 

! 


i 




! eines 

Spielers je Run- 

! 


! 




! de 



Z ! 

H 

! 

0. 

. .29 


! Zufallszahl für Divi- 

1 


1 




! dendenausschüttung 

Felder 

(Arrays): 






Name ! 

Dirnen. 

! 

Typ 

! 

Bereich 


Be deutung 

AA(,,)! 

1. . 

.MI 

! 

G 

! 

-10...20 

! 

Aktienbeeinf1. 

! 

1. . 

.20 

! 


! 


! 

für alle Spieler 

! 

0. . 

. 1 

! 


! 


! 

1.Stelle: 

! 



! 


! 


! 

Spie 1er 

! 



! 


! 


! 

2.St eile: 

i 



! 


1 



Lfd. Nummer 

j 



! 


! 


! 

in Liste 

! 



! 


! 


1 

3.Stelle: 

[ 



! 


! 


! 

0 : Kurshöhe 

! 



! 


! 


! 

1 : Aktiennummer 

AK( ,) ! 

1. . 

.20 

1 

G 

! 

Ganzzahlig 

! 

0 : Aktienkurs 

! 

1. . 

.2 

! 


! 


! 

1 : vorh. Aktien 

AK$()! 

1. . 

.20 

! 

G 

1 

Zeichenreihen 

! 

Aktiennamen 

GE() ! 

1. . 

.MI 


G 

! 

Ganzzahlig 

! 

Gebühren je 

! 



! 




! 

Spie1er 

Hl() ! 

1.. 

.MI 

! 

H 

! 

Ganzzahlig 

! 

Kapital beim 

! 



! 


! 


! 

Errechnen des 

! 



! 


! 


! 

Vermögens 

H2() ! 

1. . 

.MI 

! 

H 


0. . .20 

1 

Zahl der Beein- 

! 





j 


1 

f lußungsmöglich. 

! 



! 


! 


! 

je Spieler 

S$() ! 

1. . 

.MI 


G 


Zeichenreihen 

! 

Name der Spieler 

SP(,)! 

1. . 

.MI 


G 

! 

Ganzzah1ig 

! 

0 : Kapital jed. 

! 

1. . 

.20 



! 


i 

Spielers 

! 



! 


! 


! 

1 : Anzahl je 

1 



! 


! 


! 

Aktie je Spieler 

Z() ! 

1.. 

.3 

! 

H 


-10...20 

! 

Zufallszahl für 

! 



! 


1 


1 

Beeinf1.höhe 

ZA() ! 

1. . 

.3 

1 

H 


0. . .20 

! 

Zufallszahl für 

1 



! 


j 


! 

Aktie, die be- 

1 

— 



! 




i 

einflußt wird 
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Unterprogrammaufrufe : 

in ! nach ! 

Zweck 

2120 ! 8000 ! 
6380 ! 9000 ! 

Aktienstand anzeigen 
! Dividende auszahlen 

Verzweigungen 

nach außen : 

in Ze ! nach 

! Bedingung ! Bemerkung 

6410 ! END 

! Normales Ende ! 


2.2 Manager 


Manager ist ein relativ komplexes Wirtschaftsspiel für be¬ 
liebige Personenzahlen. Ab 6-8 Personen wird es jedoch re¬ 
lativ langatmig und dadurch auch uninteressant für jeden 
einzelnen Mitspieler, obwohl gerade durch die festgelegte 
- und spielerunabhängige - Anzahl von Waren das Spiel ge¬ 
rade einen interessanten Aspekt erreicht. 


Spielanleitung 


Manager ist ein Wirtschaftsspiel nach Art des bekannten 
Spieles 'Play Boss'. Es bildet den Ablauf in einem Unter¬ 
nehmen nach, wobei jeder Spieler der Leiter eines Unter¬ 
nehmens ist. Prinzipiell werden Rohwaren eingekauft, diese 
mittels Maschinen produziert, und als Fertigwaren wieder 
dem Markt zugeführt. 


Spielziele: 

- Maximierung des Vermögens 

- Als erster Spieler ein bestimmtes Kapital 
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Anzeigenfeld 

Die Spieler werden der Reihe nach durch den Computer nach 
den gewünschten Aktivitäten gefragt. Als Entscheidungs¬ 
grundlage dient die Anzeige auf dem Bildschirm. Der Bild¬ 
schirm zeigt am oberen Rand den Markt mit seinen Waren an. 
3e Ware ist ein voller Punkt vorhanden, und außerdem wird 
die Gesamtzahl der Waren angezeigt. Weiterhin der Preis 
der Waren ( 100 DM bis 800 DM für Rohwaren und 1000 DM bis 
8000 DM für Fertigwaren). 

Im unteren Bereich befindet sich die Anzeige für den 
jeweiligen Spieler. Es werden angezeigt: 

- Rohwaren 

- Fertigwaren 

- Vertriebsgesellschaften 

- Maschinen 

- Arbeiter 

- WEB’s (Ooker für Wirtschaft, Entwicklung, Beratung) 

- Barkapital 

- zu versteuerndes Einkommen 

Zwischen diesen Anzeigen erscheinen gegebenenfalls die 
durch den Spieler zu wählenden Alternativen: 


‘Positive Entscheidungen' (52 % Wahrscheinlichkeit) 

1 - Einkäufen 

Eingekauft werden können maximal soviele Waren, wie im 
Markt vorhanden. Nach Drücken der Taste ’l' kann der Spie¬ 
ler diese Zahl eingeben. Die gekauften Waren erscheinen 
beim nächsten Zug im Feld Rohwaren. Der Kaufbetrag wird 
automatisch vom Barkapital und dem zu versteuernden Ein¬ 
kommen abgezogen. Es kann auch auf Kredit gekauft werden. 
Werden weniger Waren gekauft, als im Markt vorhanden sind, 
werden die Waren aus den billigeren Preisbereichen zuerst 
gekauft. Der Spieler zahlt jeweils nur den über den Waren 
angegebenen Betrag. 

2 - Investieren 

Hier können Maschinen gekauft werden, jedoch nicht auf 
Kredit. Eine Maschine kostet DM 10.000, und dieses Kapital 
muß als Bargeld vorhanden sein (Vorsicht bei Spielbeginn 
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mit dem Einkauf von Rohwaren). Das zu versteuernde Einkom¬ 
men ändert sich nicht, da die Maschinen einen Materialwert 
von DM 10.000 darstellen. 

3 - Produzieren 

Hier können Rohwaren zu Fertigwaren produziert werden, ma¬ 
ximal jedoch nur so viele Waren, wie Maschinen bzw. Rohwa¬ 
ren vorhanden sind. Die Produktionskosten betragen für je¬ 
de Ware einheitlich 1000 DM. Es kann auch mit allen Ma¬ 
schinen produziert werden, wenn vorher schon mit Hilfe von 
Arbeitern produziert wurde (vgl. unten). 

4 - Verkaufen 

Mit dieser Entscheidung können Fertigwaren verkauft wer¬ 
den. Die Anzahl kann vom Spieler selbst bestimmt werden. 
Die Waren werden in die Felder des Marktes, im höchsten 
Preisbereich beginnend, abwärts einsortiert, und die Ein¬ 
nahmen dem Spieler gutgeschrieben. 

5 - Nichts ausführen 

Der nächste Spieler kommt zum Zuge. 


'Negative Entscheidungen' (18 % Wahrscheinlichkeit) 

1 - Fertigwaren zum halben Preis: 

Es werden alle Fertigwaren zum halben Marktpreis in den 
Markt zurückgelegt. Ist keine Fertigware vorhanden, pas¬ 
siert nichts. 

2 - 10 % Kapitalabzug 

Es werden 10 % des 'absoluten' Barkapitales abgezogen, 
d.h. auch 10% werden von den Schulden nochmals abgezogen. 

3 - 1000 DM je Maschine 

Es werden für jede Maschine 1000 DM vom Barkapital abgezo¬ 
gen. 

4 - WEB 

Ein WEB muß zurückgegeben werden 
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‘WEB kaufen* (14 % Wahrscheinlichkeit) 

Es kann für 1000 DM ein Web gekauft werden. Für drei WEB's 
kann eine Maschine gekauft werden. Diese erhöht das Ver¬ 
mögen um 10.000 DM. WEB heißt Wirtschaft, Entwicklung und 
Beratung und stellt in diesem Spiel eine Art Joker dar. 


■Risiko* (14 % Wahrscheinlichkeit) 

Auf die folgenden 33 Möglichkeiten hat der Spieler keinen 
Einfluß. Der Risikoteil läuft automatisch ab. Jede der 33 
Möglichkeiten ist im Prinzip zu den anderen gleich wahr¬ 
scheinlich, jedoch verringert sich das Angebot, da nicht 
alle Möglichkeiten vom Spieler ausgeführt werden können. 


Im einzelnen sind dies: 

- 5 Einheiten Fertigware für 10.000 DM kaufen (falls 
5 Waren im Markt vorhanden sind) 

- Eine Maschine abgeben, falls vorhanden kann auch 
ein WEB abgegeben werden. 

- Zinsen in Höhe von 5 % oder 10 % des Barkapitals. 
Wer Positives vorweist erhält die Zinsen, im ande¬ 
ren Falle müssen sie gezahlt werden. 

- Geldbuße in Höhe von 5 % oder 10 % des absoluten 
Barkapitales. 

- 1000 DM an jeden Spieler oder ein WEB (falls 
WEB vorhanden) 

- Fertigwaren (wenn vorhanden) ins Rohwarenlager oder 
zwei WEB (falls vorhanden) abgeben 

- Brand im Rohwarenlager. Die Rohwaren kommen alle 
wieder in den Markt. Falls ein WEB vorhanden ist, 
können 5000 DM erstattet werden. 

Je 500 DM für Fertigwaren bezahlen (falls Fertig 
wäre vorhanden) 

- Eine Maschine für 5000 DM kaufen. Dies geht auch, 
wenn das Barkapital nicht vorhanden ist. Die Ma¬ 
schine hat jedoch einen Vermögenswert von 10.000 DM 
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- (falls Fertigware vorhanden ist) Brand im Fertig¬ 
warenlager. Die Ware wird in den Markt zurück¬ 
gelegt. Falls WEB's vorhanden sind, können für 
jedes WEB 10.000 DM erstattet werden. Bei wenig 
Ware und vielen WEB's ist dies eine positive 
Entscheidung. 

- Geldbußen von 5000 DM, 10.000 DM und 20.000 DM 

- Geldeingänge von 5000 DM, 10.000 DM und 20.000 DM 

- Kostenlos eine Vertriebsgesellschaft (laufende 
Kosten müssen jedoch selbst aufgebracht werden) 

- Kostenlos eine Maschine 

- (falls Arbeiter vorhanden) Weihnachtsgratifikation 
von 5000 DM je Arbeiter. 

- (falls Arbeiter vorhanden) Alle Arbeiter kündigen, 
und brauchen auch nicht mehr bezahlt zu werden. Es 
können jedoch wieder neue Arbeiter angestellt 
werden. 

- (falls Fertigwaren vorhanden) je Fertigware für 
10.000 DM (2000 DM über dem höchsten Marktpreis) 
verkaufen. 

- (falls Arbeiter vorhanden sind) Neuer Tariflohn 
(anstatt 3.000 DM oder dem bisherigen Lohn). 
Möglich: 100 DM, 500 DM, 1000 DM, 2000 DM, 5000 DM 

- (falls positives Vermögen) Schaden durch Sabotage 
in Höhe von 5%, 10% oder 20% des Gesamtvermögens. 
Angezeigt wird das jeweilige Vermögen. 


‘Geschenk’ (2% Wahrscheinlichkeit) 

Der Spieler erhält ein Geldgeschenk in Höhe von 100.000 DM 


Abrechnung 

Nach jeder fünften Runde erfolgt eine Anzeige auf dem 
Bildschirm. Anschließend werden die Steuern ermittelt und 
vom Barkapital abgezogen. Hier können auch Vertriebsge¬ 
sellschaften gekauft und Arbeiter angestellt werden. 
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Spielstand 

Es werden für jeden Spieler angezeigt: 

- Spielernummer 

- Gesamtvermögen 

- zu zahlende Steuern 

- Höchststand 

An dieser Stelle kann das Spiel jeweils abgebrochen wer¬ 
den. Als Spielziel kann sowohl der beste Höchststand gel¬ 
ten, oder - was manchmal wegen der Steuern schwieriger ist 
- der momentane Vermögensstand. 


Steuern 

Die Steuern werden wie 

- weniger als 

- weniger als 

- weniger als 

- mehr als 

Verlust wird bei der 
vorgetragen. Es sind 
letzten Höchststand zu 


VertriebsgeselIchaften 

Vertriebsgesellschaften dienen dem reibungslosen Verkauf 
der Fertigwaren. Für jede Vertriebsgesellschaft wird vor 
dem jeweiligen Zug des Spielers eine Fertigware auf dem 
Markt verkauft, falls Ware vorhanden ist. Die Anschaffung 
kostet 20.000 DM (auf Kredit möglich), und der Unterhalt 
jede 5. Runde 5000 DM (bei Abrechnung der Steuern). 


folgt berechnet: 

2.000 DM 
10.000 DM 
20.000 DM 
20.000 DM 


keine Steuren 
50 % Steuern 
70 % Steuern 
80 % Steuern 


Berechnung der Steuern automatisch 
jeweils nur die Steuern ab dem 
bezahlen. 


Arbeiter 

Arbeiter dienen der reibungslosen Produktion von Rohwaren 
zu Fertigwaren. Für jeden Arbeiter wird vor dem jeweiligen 
Zug des Spielers eine Rohware produziert, falls Rohware 
vorhanden ist. Die Anschaffung kostet nichts. Der Arbeits¬ 
lohn beträgt anfangs 3000 DM je Arbeiter, ändert sich je¬ 
doch ggf. bei Risiko (TarifVerhandlungen). Die Produk¬ 
tionskosten mit Arbeiter betragen je Ware einheitlich 500 
DM. 
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Zinsen 

Sollte sich das Kapital eines Spielers im negativen Be¬ 
reich befinden, so muß er in jeder Runde 10 % Zinsen zah¬ 
len. Es sei hier ausdrücklich vor einem zu hohen Kredit 
gewarnt, da - je nach Sachlage - eine Rückzahlung des Kre¬ 
dits wegen der automatischen Zinsen nicht mehr möglich 
ist, da nicht mehr entsprechend Gewinn gemacht werden 
kann. 


Programmlisting 


1000 REM ***:■>;** 

1010 REM * V 0 R S P H H H * 

1020 REH *ifH■:*H'li^';*******i^fH^iH^H^*H^:'l►**;^<*^R'l►*;+;***;*H>:**:■K******:'^i* 

1030 P0I<E532S0,. 7 

1040 P0KE53281 ., 6 

1050 PRIMT"!U 

1060 PR IH T " IJBffiMeiaM" 

1070 PRIHT" f.f“1 I-1 I I I-1 I 1 I r.-| 

10S0 PRINT" IHM I N M II I I I 

1090 ft;:INT" I I I L_J I I L.-.J L_.. I .. l...J 

1100 PRINT" I II I I M ■■I I 1! II I 

1110 PRINT" I t I I II II I I...I l_ I 

I 120 G 0 S U B220:3 0 

II 30 I Nf 'LI T " :i!!|I5;[f)M?M5;iSl!;N I E:I RLE :3F:' IEILER " HI 

1 140 : 

] 15 0 R E H H fi R l< T F- U E L. L E N - ------- 

1 160 : 

1170 DIHHRFB::' 

1180 F0RI-=:1T0S 
:l. 190 HR'::i;;'=6 

1200 ne:7t 

1210 WPr=48 

1220 I-I1T=="_____________ 

1230 

1 240 REH —- SThRTKRPI TRL.-.- -.-...-.—.-...— 

1250 : 

1260 DIHma« > 

1270 ft::iri = itohi 

1:^00 l< R ■: I l =:20000 
1290 NE:4T 
1300 DIHWEFHI> 

1310 DlHRHlHI> 

1320 DIHFH'::HI > 

1330 DIHHFilHI 
1340 : 

1359 REH --FUER .... KRPITFlL BE2RHLTE :3TEIJERN-... 

1 360 : 
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13?0 DIMBZCI'H > 

1380 FORI=lTnMI 
13 90 B Z c I > = £ 01010101 
14001 NEKT 
14101 DIMHI :> 

1420 DINHL'::r'1I > 

1430 DIHVE':;MI > 

1440 DINflRCni 
1450 DiriRRCMI > 

1460 F0RI=:1T0MI 
14 7 0 B R <: I =30100i 
14S01 NEKT 
£000 REM 

£010 REM * NFIECHSTER SPIELER * 

£@£0 REM ***H^****;fJl'i*********i|':**i|^******il':*jf;******^ 

£030 SZ=SZ4l 

£040 I FSZ>M I THEHSZ==: 1 ; RU=:RU+1 
20501 : 

£060 REM --STEUERFÜUMDE ?.. ..-.-.-...—... 

£0701 : 

£080 IFRU=5THENRU=0 s GOSUB11030 
£090 : 

£100 REM —flUTOMRTISCHE HHNDUJHGEH-.-.-.-.—--- 

£110 : 

£ 1:30!i GOSUB 1 £0i30 
2160 PRINT"^" 

£ 170 REM iI«**j>i****i>i*************!****H|'j>i***********H':**** 
£180 REM * GRUHDBILDSCHIRM RUSGEBEH * 

£ 190 REM H«!****H«*********Ht!**:'H**Ht**;'HHfil':*iK**iF<t*i>i:^^**N'^ 

£200 PRIHT"a" 

££ 10 F'R I NT "aMRF;:l<T : 1 " ; INR ; " WiRH::EN" 

£££0 PRINT"100 I 200 | 300 | 400 | 500 | 600 I 700 I 800 
2230 F0RI==1TQS 

2240 IFMR <: I > =0THEHPR I NT ” SlffiÄiJ" .? : GOTO2280 
£250 I FMR I > <4THENG0SUB 10030 
2260 I FMR I > >3THEHGÜSUB 10110 
£270 IR4R I >3THENPR I NT " tÜD" ; 

£280 NENT 

2290 PR I NT " M ü HUMH P 

2300 PRINTHIT 

£310 PR I NT " OHHRRE : 

£320 PRINTHIT 

2330 PR I NT " ;-PERT IGWRRE : 

£340 PRINTHIT 

£350 PR INT" JijMRSCH INEN : 

2360 PRINTHIT 
£370 PRINT".aHEB 'S : 

2380 FRlINTHlT 
2390 PRIHT"aü" 

2400 PRINT"BFlRGELD : 

£410 PR INT"ZU VERSTEUERN: " 
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2420 PRIHT''g|iIii_iyBJMtJ|MiJI»l*i,lJ35F\TELER " .SZ 
2430 : 

2440 REM —ZINSEN EUER SCHULDEN BERECHNEN- 

2450 : 

2460 FORI=ITOMI 

2470 I F4:::H ■; I <0THENKH C I > =KH< I +1 NT C KR I > 1 @/M I 
24S0 NEKT 
2490 : 

2500 REM —RN.;:;!flHL NR Fl EN RUSFlECHNEN--- 

2510 ; 

2520 NR=0 
2530 FORI = 1 TOS 
2540 NR=NR+MR':: I i 
2550 NEKT 
2560 REIM 

2570 REM :+; ORTEN DES SPIELERS RNZEIGEN * 

2500 REM **H<*********;+;**#:+;:+;**:+;******iE;**:+;**:+:*****?FJE:;+i** 
2590 G0SUB2101-30 
2600 REIM 

2610 REM :+; RRT DES SPIELZUGES FESTLEGEN * 

2620 REM 

2630 H1 == I NT ■; 50H<RND 'H 51 > -i-1 
2640 : 

2650 REM —POSITIVE ENTSCHEIDUNGEN 52 Z- 

2660 : 

2670 IFHi;:27THEN3030 
26S0 : 

2690 REM —NEB KFlUFEN 14 K- ---- 

270t3 : 

2710 IFH1<34HHDH1>26THEN4030 
2720 : 

2730 REM —NEGRTIVE ENTSCHEIDUNGEN IS Z.—.---. 

2740 : 

2750 IFH1<43HNDH1>33THEN5030 
2760 ; 

2770 REM —R I S I K 0 14 Z- 

27S0 : 

2790 IFH 1<50HNDH1>42THENF0RI = 1TOZOGO:NEXT:GOTO6030 
2800 : 

2810 REM —G ESCHE N K 14 Z----- 

2820 : 

2830 IFH1=50THEN9700 

3000 REM jF***i*:+;**;+:4;H«*4;***i'F*Hf***?FH<*****^F*****^F****i+;*?l'::+: 
3005 REM * POSITIVE ENTSCHEIDUNGEN :+: 

3010 REM 
3015 : 

3020 REM —ENTSCHEIDUNG RBFRRGEN----■-- 

3025 ; 

3030 PRINT" .aie!lE!MiiiH!J l - EIINKRUFEN 
3035 PRINT''jsi!fflM5M!a2 - INVESTIEREN 
3040 PR 11-1T " aiüInMüMluM ::! - PRODUZIEREN 
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045 

PRINT 

''SGSllMSMSMSH - 

VERKAUFEN 

rif-ifi 

PRINT 

''a5iaiaiiM5Lia5M5 - 

NICHTS AUSFUEHREN 

0O0 

OETR:iE- 

GOSUE: 

: I FR:t:=:" "THEH30 

Gifi 


Fl-r'v'RL 

CRT::' :ONRGi:iT031 

15,3215331153515,2000 

: 105 
1110 


-ROHWAREN KAUF 

EN 



1115 

I NF'U 1 

''sMeßMiasNiEviE 

LE ROHWAREN ";H2 

1120 

IFH23 

•WFITHENG0SIJB212 

30:GOT03115 


3125 l■JH = WH-H2 
3130 FORI^ITOS 
3135 IFI<H<:0TH1£H3165 

3140 IF MR 1:>H2THFMMR l I > ==:MR I >-H2 : Rl'J 32 :> =RW S2 > +H2 

:!<H C SZ i' =KR C SZ >-HZjF I * 100 : H2=0 
3145 IFMRI > <:=lH2:THEriH2.4-l2 -MR I ;■ RW C 32 > ==F?W 132 ;■ + 

3150 G0T03165 . MR <I> s G0TÜ3155 

3155 K Fl £ 3 2 > = K Fl 3 Z - M R C 1 > * I * 10 0 

3160 MR'::i;'=0 

3165 HEXT 

31 ilOT'O200ii::i 

3200 ! 

3205 REM —MflSCHIHEH KHUFEN---____ 

321 1 PR I irr " SiSSlSMBlül 

II 

3215 IMPUT " at i aMiüMia 'l 1EV1ELE MFI3CHINEN ";H2 

3216 I f" K R 3 21' < 0 T H E N3240 

3220 I l~H2* 10000:>l<fl SZ > T'HEN3240 

3225 MFl SZ > r=MH SZ ;• + H2 

3230 KR (:SZ::'==KFl'::SZ::'-H2* 10000 : 

3235 GOTO2000 
3240 PR]:HT"aM i!M t!:[ tlM 

3245 PRINT''i5im*lMfiIgiaZIJWENIG BARGELD !!" 

3250 F 0 R :f = 1T05000 
3255 HEXT 
3260 GOT03215 
3300 : 

3305 REM —PRODUZIEREN- 

3310 : 

3315 INPIJT " iai!!Mg.M PBm IEV I ELF MRREN ";H2 

3320 I FH2>RW C SZ THEH3390 

3325 I FH2>MR SZ THEH3365 

3330 RW SZ > =RW SZ > -H2 

3335 FW C 32 =FW f! 32 > + H2 

3340 KR <: SZ > =l<Fl C SZ -H2* 1000 

3345 G 0 T02000 

:3350 : 

3355 REM —ES KOEHHEH NICHT ALLE WAREN PROD. WERDEN— 
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3365 PF::INT"äe®g[5l!!IISI 

3370 FraNT''aaS.?ISia!!lS2:UI.'.IEH.TG MRSCI-n:HEH ! !" 

3375 FORI=1TO5000 
33;:Eii3 HEXT 
3385 G0T03315 
3390 PR IHT " Mf l g MüMi!!] 

3395 PR I NT " S-MeMüIiüIgja ZLIHEH IG ROHHflREN ! !" 

3400 F O RI = 1TO5000 
3405 HEXT 
3410 G0T03315 
3500 : 

3510 : 

3515 INPUT"SI üMiüMglia 'J 1EV1ELE FERTIGWAREN ":H2 

3520 I FH2>FW SZTHEN3570 

3525 WR=Wfl+H2 

3530 FW SZ::=Fl'J C SZ -H2 

3535 FÜR I=8T01 STEP-1 

3540 IFMR I :=6THEN3560 

3545 IFH236-NR 1 THE:NH3=6-MR I > : MR < I =6 : H2=H2-H3 

3550 H3=6-MR C I ;■ : KR SZ =:l<fl C SZ > +H3* 1 * 1000 

3555 I FH2<:=H3THENMR C I ;■ =MR C I ;■ ■i HZ : KR C SZ :=:KR:SZ +H2 

3 5 ej 0 N E X T * I * 10 0 £-1: H 2 == 0 

3565 i3 Ci T 0 200 0 

3570 PRINT"SKM5l!5MSI 

3575 PR I NT" aiüIHM U Maa -l ICHT VORHANDEN ! ! " 

3 5 S 0 F 0 RI -1T 0 lü:' 0 0 0 
35S5 HEXT 

3590 G0T03515 
4000 REM 

4010 REM * WEB KFIUFEN * 

4020 REM ****H'i*HH**jK+i********************************* 
4030 INPIJT " IsMBM tl M B l 'JEB KRUFEN JXN";R# 

■i|'04ei IF FIT- " J " THENKR F SZ > -KR F SZ > -1000 : WE F SZ > =WE < SZ +1 
4950 F' RI H T' ’ ä-äSISCSKMa 
4060 IFWE <: SZ > <:3THEH2000 
40S0 : 

4090 REM .UMWRNDELN IN MASCHINE ?-.--- 

•4 100 : 

4110 INPUT" SMuMüMtll S WEB'S --> MASCHINE J,-'N".:RT 
4120 I FR:Tr= " J " THENI4E F SZ -WE SZ > -3 s MR ■; ;E;Z =:MR F SZ > +1 

4 1 30 GCiT020013 

5000 REM ***;f4'i4'i;+i********H(**T*H';*4'iJ|«*i'F*i*****i+i*********** 
5005 REM * NEGATIVE ENTSCHEIDUNGEN * 

5010 REM ******i4<H(*****iF*****************H(*:'h;?F********* 
5015 : 

0020 REM --ENTSCHEIDUNG ABFRAGEN------ 

5025 : 

5030 PRINT''glj|!efiKi;isMl - FERTIGWAREN ZUM HALBEN PREIS 
5035 F'R:INI"isIglBtril ff ft Mü t;;: - 10 z KAPITALABZUG 
5040 PR INT" ^aaii ftiaglgM eügE: - 1000 DM JE MASCHINE 











70 


Kapitel 2.2 


5045 PR INT" aaMBMBMBMgH - 1 HEB BEZflHLEH 
5050 GETflÜ 

5055 I FFi$r- " " THEN5050 
5060 R:=VflL'::flS::;' 

5065 0 N fl G 0 T 0 5130533054305530 
5100 : 

5110 REM —FERTIGWAREN ZUM HALBEN PREIS.... 

5120 : 

5130 H2=FW'::SZ::' 

5140 FW'::SZ::'=0 
5150 Wfl=Wfl+H2 
5160 F0RI =--STO 1 STEP-1 
5170 IFMR <: I =:6THEN5210 

180 I FH2>6-MR C I l THENH3=:6-MR C I i : MR < I ;■ =::£ : H2==H2;.FI3 

51 fl 0 H 3=6 - M F? I : K fl S Z > = 1:: fl < S Z l ■+■ H 3 * I ' 2 * 10 0 0 

5200 I FH2<==:H3THENMR I i = MR I > ■+ H2 : F<fl t: SZ i =4^0 SZ > + F12: 

5210 NEXT M I ."'S* 1000 5 H2=0 

52201 GO TO200101 
530101 : 

5310 REM —10X KflPITflLflBZUG--- --- —■ 

5320 : 

5330 Kfl <: SZ > =l::fl OBZ > - ABS I NT' < KflSZ /10 > 

5340 G O T020i 0 0 
5400 : 

5410 REM —1000 DM JE MASCHINE--—...... 

5420 : 

5430 Kfl SZ :> =F-::fl SZ -Mfl SZ * 1000 
5440 G 0 T020010 
55001 : 

5510 REM —WEB BEZAHLEN---.-.--- 

5530 WE 0 SZ i =:WE C SZ-1 
5540 C-i 0 T0201001 
6000 REM 

6010 REM 4; R I S I Ff 0 * 

6020 REM 

60301 P RIN T " [3^: IS; IK 0 F; ISI F< 0 

6040 PR I NT " RISI KO " ; PR IF-IT : PR I NT 

6050 PRINT" [-1 I I--| I I ...■•■ [-1 

6060 PRINT" I III II I I 

6070 PRINT" I_I I I_ II II" 

6080 PRINT" I I III ■■■•.. I I 

60fl0 PRINT" I I I_J I I I_J 


610 0 P RIN T " UilÜftF: ISI K 0 RISI K 0 

6110 PRINT" RISIh::0" ;PRINT' .iPRINT 

6120 PRINT" **4; * ■*: 

61LI01 F'R.'INT" 

6140 PRINT" ■i¥. * * * 

6150 PRINT" 4;* * 4 * 4* * * 

6160 PRINT" ^ * * *1+:* 

6170 PRINT" RISI KO" : PRINT s PRIN T 

6180 PRINT"RISIKO RISIKO 
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6190 PRU-'IT" RISIKO RISIKO 

6200 G 0 S U B220El 0 
6210 : 

6220 REM —ZUFfiLLSZflHL UND SPRUNÜVERTEILER--- 

6230 ; 

6240 B= I NT <: 33*RHD C 5 +1 

6 2 G El El N B iG Ci T Ci6 46Ei 6 6 5 Ei, 6 ?' G Ei,, 6 33Ei .,691 Ei 
626El 0 N B - G G 0 T 0699Ei71 Ei0,723073G Ei... 7 G10 
6270 0H B -1 El iG 0 T 07 6 7' 97 7 G Ei7 7' 8 0S E11 Ei., 806Ei 
6280 0N B -1G iG 0 T O 81 1 Ei., 81Ei8 21 Ei., 826Ei., 8 310 
6290 0N B -- 2 0 G O T08360845El., 8 54£i., 863El., 882Ei 
6 3 £10 0 N B - 2 G G 0 T0894Ei., 9 Ei 2 G91 Ei Ei., 91S E1., 926Ci 
6310 OHB-30GOT09340., 946Gi., 9GG0 
632EI i30T02EiEiEi 

6400 REM **^^**^^^*;1|i;*H^*****il^i^:i'Hi+:*i^i*****i^:l^':*H^*********H^**il^* 
6410 REM * R I S I K 0 F fi E L L E * 

5 4 2 El F: E M :+ ip+i * .+i * J|<:+:+ ** .41444444 4 4 44 444 444 44.4444 4.4.4 4.44 
6430 : 

6440 REM —SOHDERflNGEBOT., WEHN NfiRE VORHRHDEH--- 

64G0 ; 

6460 I FWR<:GTHEH624Ei 

6470 PR I NT"." ImaMi il M t l E: 0 N D E R Fl N G E B 0 T ! 

6480 PRINT'' BialüJ '10ECHTEN SIE FUENF EINHEITEN 
6490 PRINT"35;FERTIGNRRE ZU .JE DM 200@ 

6G00 PRINT : INPUT"KRIJFEN ? '::.J..-'N ::'";RT 

6G10 HG=G 

6G20 I FH:TC> " J " THEN200EI 
6G30 WR=NR-G 

6G40 K:R < SZ J =:KR C SZ > -10000 
6GG0 FW C SZ =FW C SZi' +5 

6 G 6 El F 0 RI = 1T 0 8 

6G70 IFMR I =>HGTHENMR C I > :=MR C I > - G : GOTOSEiOG 
6GS0 IFMRC I :i=0THEN6600 

6G90 IFMR':: I <H5THENHG=HG-MR':: I WIR':: I ::'=0 
6600 NEZT 
6610 G 0 T 0 2 El 0 O 
662EI : 

6630 REM —MRSCHINE ODER WEB ZUEEXPCK----- 

6640 : 

66G0 PRINT"3:!!!ßlC!M5P - EINE MRSCHINE ZURUECKGEBEN 
6660 I Fl'JE >:: SZ ::■ =0THENMH •:: SZ ::■ =MR •:: SZ ::> -1 : F CiR I =: 1TO3EI00 NEI's T 
6670 PRINT"- EIN WEB HBGEBEN ; 130102000 

6680 GETRit : I FHT= " " THEN66S0 

6690 IF R " R " T H E N N Fl •:: S Z ::■ = M H ■: S Z::-.-1 :: F 0 RI = 1 T 030Ci Ci : N E l"': T 

: I FMR >:: SZ::' ■':::0T'HENMH ':: SZ ::> =Ci : GO n::C:; 000 
6700 IFR^:="B "THENWE';SZ::'=:WE'::SZ>-1 :GOTO20Ei0 
6710 G 0 T066G Ei 
6720 : 

6730 REM —ZINSEN UND GELDBUSSEN------.-.—. 

6740 : 

67G0 PR I NT " ri g ll uMBlml Z I NSEN IN HOEHE VON 1 eZ DES 
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6760 F'R I l'-l T " iMüMSSftRRI T flLES 

6770 H 6 -: 11■■ 1 r K Fl t S Z! '.■ ' 10 

6780 FR I MT " Mm K W M " ; H6 

6 7 y 0 l< H F 3 Z :> - K Fl <■. S Z :> h H 6 

6 3 Fl 0 F 0 f':; I = 1 T0200Fl 

6310 I-IEXT 

i;::"520 F.FI !“IT2FI@0 

6330 PRIITr''::KM!!!ffiÖ!lZIMSEN IH HHEHE VON 5 Z DES 
6;i340 PF? I NT " fflBMBliüE iHRKFlF 'l l'FlLES 

6 3 5 0 H 6 ==: IH T F l< 0 F S Z' 2: Fi > 

6360 r='R I NT " BMuM ül j " ; 116 
6870 KiT F SZ. > =F::0 F SZ ■i-He 
6830 F 0 R 0=:: I T 0 2 Fi 0 0 
6330 l-IEIFn' 

69F)Fi 130 TO 2 000 

6310 F4r'IMT" TIMBlgliflBl GEHJBUSSE TM HOEHE VOM 5 Z DES 
63120 PR I MT " B T bB iMbE hRKRI-' T T ALES 
fiSFiFi H6=-ABS F T MT F KR F SZ ;■ .-'20 i' 

6940 PR T MT " BTBliiTBlg ]" ; H6 
F;950 KPl F SZ =KR F Si: > •■i-H6 
iS 91j 0 F 0 F: T = T T 0 iS 0 0 0 
6970 HEXT 
6930 GF.iTn2000 

6990 F'RlHT’‘:i!3teM?J5J3ELDBlJSSE TN HOEHE VON 10 Z DES 
7000 PR T M T” £|£ISIe]fiK3RRhFAP T TALES 
70 T 0 H6=RBS F T N T F KR F SZ > 10 :■ ) 

7020 PR T NT " SlüßTeKT" R6 
7030 IFR F SZ =l<Fl F SZ i- +H6 
7040 FÜR T := 1TO2000 
705FI NEZT 
7060 GIJTO2000 
7070 : 

7080 REM —1000 DM MH JEDEM SPIELER--- 

7 Fi 90 : 

7100 F'R TNT" r iBTBlBUg üiR - DM 1000 RH JEDEN SPIELER 
7110 1FME F SZ > =0THEN7150 
7120 lHPLIT"jgMS5l!5J3 - EIN HEB " rflT 
71S0 1 FPM;::= " H " THEH7150 

7140 1 Ffl:T=:" B " THEHWE F SZ i' =ME F SZ > -1 : FOR1 = 1 TuSOOO ; MEZ 
7150 K R F S Z i' = K R F S Z > -1000:+ MI : U 0 T U 

7160 FORl^lTOMl 
7170 K:R F 1 i' =KR F 1 > +1000 
7180 HEXT 
7190 G Fi T02000 
7200 : 

7210 REM —VERLUST FERTIGMRREH- 

7220 : 

7230 1FFW F SZ 6=0THEM6240 

7240 PRlHT"3|!lgMS3fflR - FERTlGURREN INS ROHWRREHLRGER 
7250 1 RWE F SZ i' <2THEN7280 
7260 INPUT"B - ZWEI WEB 


" ;Hi: 


K' H 
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7270 IFRS: = "B"THENME CSZ:> =HE:SZ>-2 :FOF!:! =1TO2000 :HEXT 

7 2 S 0 R W c; S 2 ::■ = R W <: S Z ::■ + F14 S Z: G 0 T 0 2 Hi 0 0 

7290 FI4'::SZl:'-0 

7300 FOR :i: = 1TO2000 : HEXT 

73:10 GOTO2000 

7323 : 

7330 REM —SCHRDEHERSRTZ- 

7340 j 

7350 PRIHT" Z[E!MgaW JE DH 2000 SCHRDEHERSRTZ 

7360 PR.TNT"5ßl5l9l!3] RN DEN SPIELER VORHER UND NRCHHER 

7370 IFWE<S2::'<:2THEH7420 

7380 PRIHT":5M5ßßl HOLLEN SIE FUER 2 HEB DM 4000 

7390 PRINT'OaüMS® SCHRDEHERSRTZ ? HJZN::' 

7400 INPUTRJ: 

7410 I FH$= " J " T HENHE H SZ ^HE C SZ -2 : KRC SZ '■ =I::R C SZ +4000 
7420 KR SZ :=KR C SZ -4000 

7430 I FSZ== 1THENKR MI =KR CMI +2000 s GDTO7450 

7440 KR SZ-1 =KR C SZ--1 +2@00 

7450 I FS2=M ITHENKR H 1 =:Kfi H 1 +2000 ; GOTO7470 

7460 KR SZ+ 1 =KR C SZ+1 +2000 

74 70 G 0 T02080 

7430 : 

7490 RE.M —Eil-^:RND IM E!üHHRRh.lIL_RGEF!----- 

7500 : 


751 Ei 

IFRHHSZ::'<; = 0THEN 

RH ( S 

z > ~ 

0:GOT06240 



7520 

PR I NT ” EaftaaaERRND I 

M R 

OHHRRENLRGER 




H5=RH'::SZ::' sRHESZ 

> =0 





7540 

FJFI.-HR+H5 






7550 

FORI=3T01STEP-1 






7560 

IFMR':; I ::'=6THEH?6 

00 





7570 

H3=6 . MRE I 






75t.:0 

IFH5=>H3THENNR':: 

I =6 

;;H5 

-H5-H3:GOTO76 

30 


7590 

IFHSCHSTHENMRCI 

=MR 

I 

+H5:H5-0:GOTO 

7600 


V'60O 

HEXT 






7E.I0 

IHPUT"H:!‘|5-RSTRTT 

IJNi:5 

ViJl 

DM 500Ei fije;r: 

1 HEB 

.T,-’N " RJ 

■"620 

IFRT==:"J’'FlNDHEES 

;7 :• 

THE 

NHE'::3Z::'==:HE‘::SZ 

;KR 

;• C; 7* _ 

.■'b-rlH 

G'JTO20EiEi 




KR CS 

Z::'+-5E100 

i ' f::'40 

7 6'50 

REM —500 DM je: 

FER 

T11: 

WRRE -- — 

..- 

— 

?■ S 7 0 

IFFH'::SZ::'=:0THEN6 

240 





76Si;:i 

PRINT'':j;!!ffiM!a!5i:iM 

500 

JE 

FERTIGHRRE BE 

zrhle:n 


7690 

FORI-ITO2000;NE 

:^<:t 






7700 KR < SZ-KR < S:Z > - 500*FH C SZ 
r’7I0 GDI 02000 
7720 : 

7730 REM .-5000 DM FUER EINE MRSCHINE------ 

7 740 : 

7750 INPUT";:::i:i!!aMH|aEINE MRSCHINE euer dm 5000 KRUFEN " ;RT 
77'60 IF RT = " J " THENKRSZ ==KR s:z -5000 : MmC SZ > ::=MR H SZ +1 
7770 G 0 T0200O 
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7780 

IFFWO 

32=0THEN6240i 



77901 

5 




V'’8 0101 

REM - 

-BRAND IM FERTI 

01W fl R' E. N L Fl 01E: R: ■ 

--- 

7810 

3 




7820 

PRINT 

"LlaKlBM!!]EiRflHi;i IM 

FERTIGWARE! 

IL.flGEE; 

7830 

H5=FW 

'332 i' 



7840 

FW'::32 

> =0 



7850 

WR— 



7360 

FnRi = 

3Tni3TEP-l 



7870 

IFMRC 

11' =:6THEN7910 



78S0 

H3=6- 

MR I > 



78901 

IFH5= 

>H3THENMR':: I ::'=:6 ; 

H5=H5-H3 :Gn' 

TO7910 

790101 

IFH5C 

H3THENMR':: I ::'=MR':: 

I ::'+H5 :H5==0 :i 

3IJT079: 

7910 

HEXT 




7920 

IFWEi:: 

32::'<=0THEN2000 



7930 

F'FIIHT 

"älaflRlSTFlTTUNG V 

'ON DH 1000101 

EUER 

79401 

F’R; I NI 

"MelJ'E :l web . s 

IE HABEN ".;l 

01E i: S2 > 

79501 

INPUT 

"igM'JIEVIELE MOL 

.LEN 3IE SET, 

ZEN 


79fc.0 I FUU-OTHtHHE C 32 :> =:WE 32 > -i:: : KH 32 ;■ =::KH 32+1 
79?0 GOTÜ2C100 
7980 : 

7990 REM —GELDBU3SEN2-EIHGflEHGE ■;FESTWERTE;'--- 

80010 : 

8010 PRIWT":i5lSt|l5ß|i:iELDBUSSE VOM DM 10000 
8020 K fl3 2 ;■ = K Fl3 2 -101010101 
8030 F 0 RI - • 1 T0200i 0 
8040 HEMT 
8050 010 T0201010 

8060 PRINT"aBl5M!iaSJ3ELi:;iBIJSSE VON DM 20000 

8070 Kfl 32 > =Kfl 32 > -10000 

i30801 F 0 RI :=: 1 F020010 

8090 HERT 

810 01 G 0 T0201010 

8110 PR I h-IT'' TIljMgMiig GELDBLISSE VON Df'1 5000 
8120 Kfl C 32 ;■ =Kfl32 > -1010100 
813 01 F' 0 RI = 1T0200i 0i 
8140 HEXT 
8 11 Ti 01 010 T020100 

8160 PRINT"ja!5lBL"M3EL.DElTlGlfll40i VON DM 50010 

817 01 K fl S 2 > = l< fl S 21' -10000 

818 01 F 01F: I == 1T0200101 
8190 HEXT 

8200 G O T02000 

8210 PR:I NT" n nM ti M ciriEL.DE I NGflNG VON DM 10000 
82201 Kfl <: 3 21' = K Fl C 3 2 i' -10i 0 0i 0 
82:301 F 0 RI = 1T02000i 
82401 NE.XT 
8250 G O T020G 01 

8260 PR I NT" nulBlgM iOGELDE I NGflNG VON DM 150100 
82701 K fl 3 2 i' = K fl 3 2 > -100100i 
82801 F 0 RI = 1T02010i 0i 
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8290 NE/^T 
8300 GOT0200£i 

8310 FR: IHT " ngniMBnU TELOE I I-IGhMG von dm 20000 

8320 k:a'::sz::'=EH<::5Z::'-10000 

83:30 EOF: I = 1T02000 

8340 NE:>a 

3.35 0 G 0 T O2000 

8:360 : 

8:370 REM —KOSTENLOSE VERTRIEBSGESELLSCHRFT- 

8:380 : 

8390 PRINT"^:egaM5M31E ERHRLTEN KOSTENLOS EINE 

8400 RR I NT "aaai5Ml3v'ERTR I EBSGESELLSCHRFT 

8410 VE <: SZ =VE SZ +1 

8420 EOF? I = 1T0:3000 

8430 NEZT 

8440 G 0 T02000 

8450 PRrNT"ZtgM5ffiM3IE ERHRLTEH KOSTENLOS EINE 
8460 : 

8470 REN —KOSTENLOSE MRSCHINE---.-—-- 

8480 ; 

8490 PR I NT " W agliüM Sr'IRSCH I NE 
8500 MR SZ =NR C SZ +1 
8 510 F 0 RI = 1T 0.3000 

8520 ne:zt 

85 3 0 GOT02000 
8540 : 

8550 REM —^^IEIHNRCHTSGELD------- 

8560 : 

8570 F’R INT" Z[igBli!l i ge a'.IEIHNRCHTSGR'RTIFIh:RTION FÜER DIE 
8580 PR INT* . BMeMiüf lRBE I TER < .JE 5000 DM 
85:90 KR < SZ 9 =KR < SZ -.5000:+;RR SZ > 

8600 F O RI = 1T04000 
8610 NEZT 
8620 G 0 T02000 
86:30 : 

8640 REM —RRBEITER KUENDIGEN------ 

8650 : 

8660 IFRF:O5Z::'=0THEN6240 

8670 PRINT" ngMBMsB LLE RRBEITER KUENDIGEN 

8680 R R <: :5 Z 9 = 0 

8690 F O RI = 1 T 04000 

;3700 HEIZT 

8 710 G O T'02000 

8720 : 

8730 REM —FERTIGWRREN EUER 10000 DM- ---—■ 

8740 ; 

8750 IFFN'::SZ::'=0THEN6240 

8760 RRINT" ZlgBIHlMm 'JOF LEN SIE RLLE FERTIGURREN 
8770 FR I NT “ IgMglgftF UER iJIliM 10000 ■ VERKRUFEN " 

87:30 INPIJT" IH MUftM J. 'N " rRT 
3790 IFRT<>"..T"THEN2000 
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Ö800 H':;=FW';:sz;;' 

8810 FU';:s:z::'=0 
S8£0 

Ö8>!0 1<:FI SZ =h::fi C SZ +H'5* 10000 
8340 FOR1=8T01 STEP-1 
8850 IFHR I > :=.6THEN3880 
8860 H3=6-r'1R< I > 

8870 I FH5=>H3THEHMR C I =6 : H5=H5-H3 :GOTO9890 
8830 IFH5<H3THEHMP':; I >=MR':: I > +H5 :H5=0 :GOTO8380 
i*:;90 NEF:T 
8900 G 0 T02000 
8910 : 

8920 REFl — TRRIFVERHRHDLUHGEH- 

8930 : 

8940 IFRR SZ :> <=0TFiEHRR C SZ > ==0 : GOTO6240 
8950 PR I NT " nBBUBlMW TRR IFVERHRNDLUNGEN 
8960 F’R I NT ” MBI b KIS IIERER FiRBE I TSLOHN 
8970 PR 1 NT " MBMBIBI:^ DM 1@00" 

£■:980 R P <■'. S Z £ ::: 1 0 0 0 
89 9El F 0 RI -1T i J 3 0 Ei 8 
9'000 HE-<T 
9 Ei 1 El C-i Ü T 0 2 Ei 0 0 

9020 I FFlF; < SZ > C^OTFIENRR <! SZ=0 : GOTO6240 
9030 PF: I NT " IIsaMüßJTRR I FVERHRNIDLUNlSEN 
9040 FR 1 NT"MlülBäSlSlNEUER IRF::BE 1 TSL.ÜF41 
9050 PFTNIT' FBmMBM ia DM 2000" 

Eh6G0 RP'::SZ::'=2000 
9070 F O R1 - 1T 0:319 El 0 
9080 NEZ'T 
90:9El GOTEI2000 

9100 I FRR E SZ 9 <=0THENRR E SZ =0 : GOTO6240 
9110 PR 1 NT " Z[BlBMBlB n~RR I FVERHRNDLUNGEN 
9120 FR I NT " .' BMBMBI NEUER RRBEIT:3LOHN 
9130 PR I NT " :bM b IbWSI DM 5000" 

:914 £1 Fl P £ 8 2 9 -•500El 
915 El F 0 RI 1T 0:3 Ei Ei El 
9160 NEXT 
EN 70 C-iOTO2Ei00 

E* 1 El El IFIT F: '8Ei Z 9 6—El T H E N Fl R '88 Z E — El 213 U T Ll 6> 2 4- El 
9190 PR I NT " I NBMBl BlB r rRR I FVERHRNDLUNGEN 
9200 PFl I NT " .'BMBMBI NEUER RRBEI TSLOHN 
9210 PRINT-'SSMalSSI GM 100" 

:9220 RPE:::;ZE = 100 
::9 2 :3 El F 0 F: I = 1T 0 :3 Ei Ei @ 

9240 HE:7T 
9250 G 0 T 0 2 Ei Ei 0 

9260 I FRR SZ E <=0THENRR SZ E =0 : GOTObZNEi 
9270 PR I NT " n Bl BMBlBl TRR I FVERHRNDLUNGEN 
92SE1 PR I NT " iBlBlBM B l -lEUER RRBEI TSLOHN 
9290 F'RINT"MBi5B9J!ia DM 500" 

9300 RF''::e;ze=500 
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9310 F 0 Fi: I = 1T O 3 ti 00 
9:32i;;i hlEXT 
93:50 0070:3000 
9340 : 

9360 : 

9370 H J=Kfl SZ > +RFJ SZ * 15e+FW SZ * 1500+MR C SZ > * 10000 
9380 IFHJ<0THEH6240 

9390 PF;i:HT"Zl5l5l5l5l5t5CHFlDEH DURCH :5HB0THGE 
9400 PR IHT" iB Mc gi 0 Z DE:3 GESflMT'v'ERMÜEGEI4;5 
9410 FR I HT " :E!MBMiac!: i DM ";HJ 

9420 KFi < SZ =F:FI SZ -1 NT HJ.-' 10 > 

94:30 FÜR I == 1 'TO3500 
9440 NE:>a' 

9450 GOTO200O 

9460 H..T=I<R SZ +RW C :3Z ::■ * 150+F W f SZ * 1500+Mfl <. SZ * 10000 
9470 I FH..K0THEN6240 

9400 PRINT"35MüÖ!K;r3C:HRDEH DURCH SRBOTRGE 
9490 pr:[ht":bkm30 z des GESRMTVERMOEGENS 
9500 P RIN T'' JäSßMüEI dm '' ; H ..:i 

95 :l 0 KR S;;! :=KR SZ :■ - if NT H:■ 

5 2 0 F 0 Fi; 1 -- 1 r 0:5 5 @ G 

9530 ne:zt 

:9 5 •■10 G 0 T 0 2 (3 0 0 

9550 H J=:-F R SZ T t-RW < SZ * 150+f-N < S::;:;' # 1 ;i00+MR SZ10000 
9560 IFHJ<0THEN6240 

PR I NT " □SHKMSfBCHFlDEN DURiSFI SRBiTTFHGE 
9580 PR IFTT'CSMfiJS Z DES tiiETSRIIT VtiRMOEGEF-IF; 

9590 PRINT'Fi.Maaffi.El DM ";HJ 

;9(T0@ k:FI SZ ==I<R SZ > -:[ N l T I 1..T, -:30 
:3610 FORI“! TO3500 
9620 NE;a 
9 6 :;3 G g n "F iS :2 8 10 0 

Fi! F' 014 !?: E f l # * 4: ** 4 * * * ^ i'l'; * i'l'i * H': ■¥ :¥ i'K ** 4 4: * ****** * * * 

9710 REM * G E S C: H E N K * 

9720 REIT * * * * * * * ***** i'F * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
:9730 PRINT"^" 

9740 FÜR 1 ==170100 

9750 PRINT" GESCHENK DM 100.000"; 

9760 F-10 Fi: G (:= == 1T 0 2 0 
9770 NfZKT 
:0i730 NETZT 

fi' 7:9 0 k: i-i <: s z :• ~ i< R t s z > + 1 0 0 0 0 0 

9800 GOTO2000 

100001 Fi: E M * * * * * * * * * * * ;f * Hh * * * * 4i * * * * * * ;'F * * * ***;+:* ;4: ****** * * * 
10002 REN * * 

10004 REM * ITILFSROUTIHEN * 

10100:16 PEM 4 : 

:! 0 010:1 F: P E: M :'F * * * * * * * * * * * 4 * * * * * * * ***** 4: * * * 4 * * * * * * * * * * * * * * 
100101 
1 00 1:2 :: 
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:l.0020 REM 

10022 REM WENIGER RLS 3 WRREN RHZEIGEN * 

10024 REM ***:'^:***?l(****i'N;+:****Jl'i****Jl^*s^;;+:**^^:**i'N*;'^:**:■l<**s^; 
10036 f-0R.J==lTnr'1R':: I ::• 

10040 PRINT"3®"; 

10050 HEXT 
10060 FORJ==MR I ::■ T03 
10070 PRINT" 

100S0 NEKT 
10090 PRI NT "»a n " r 
1009SJ RETURN 

10100 REM 

10101 REM ■^. MEHR RLS 3 WRREN RNZEIGEW * 

10102 REM ****i'N**i'Ni+i******i'l«*?l':i'N+;:'f;*?»i+i*:'l':*******?N 
1.011 0 PR I NT " äftHMiäliailli" 

10120 F0RJ=:n4T0MR':: I ::■ 

10 130 PRINT"!?!®"? 

10140 ne:«t 

10150 FORJ=:MR':: I ::'T06 
10160 PRINT" lU"; 

10170 NEXT 
101S0 RETURN 

1 1000 R E M jN * if H» jN Jlol: hH * sIt * * H« * :'l< ili; ^;+: i+r il'i :'N ?!>: sh sh ih sh sh ih sh sh sh sh sh 

11010 R:EN Sh STEUERRUNDE * 

11020 REM i'hi+;shshshi+;shshshshsi(:ihshshshshH^si(:ihshsi(shshshshshshi'hshshshshshshshshihshi+ishshihshH( 

11030 PR I NT " ÜISsMSMS" 

11040 PR I NT " SP I E1.ER " " VERMOEGEN " " STEUE;R:N " ... " HOECHSTST 
11050 FORIrrlTOMI 

11060 HI <: I :s =KR TI :s +rwt i :s sh 1 50 +FW < i :s * 1 500 i-mr c i :s sh 1 üieRR 
11070 HL. c I :s :=:H I c I :s -BZ <: I :s 
1 10 S 0 IF H L C I :s < :=20 00T H E N H L L I > == 0 
11090 IFHL L I :s >2000HNDHL C I > <:== 10000THENHL L I > 

IHTt: THLC I > -2000:si'h,. 5? 

11100 I FHL C I > > 10000RNDHL L I :s <:=20000 THENI-IL C I > = 

I NT HL. L I :s - 10000 s. 7 :s + '1000 
11110 I FHL. L I :s :>20000THENHL.. L I > = I N T C 'S HL., 'S I S' -:20000i S' *.. S Ss 

11120 I FH I 'S I :s >BZ 'S I :s THENB2 'S I Ss :=H I 'S I > ■+ 1 1000 

1 1 130 F'R I NT I HI < I S' HL 'S I > .,. BSI 'S IS' 

1 1 140 KR 'S I :s =KR 'S I :s -HL 'S IS' 

11150 NEXT 
111601 GETRT 

1 1 170 IFRT=""TUEN11160 

111S0 REM ;'h*:'hshshshs|'i:.hshs|';shshsi';shshsi';shshi'hsh*sh:'h*i'hii'hishshshshshshshshsh:'l';shsh:'hshshsh!shs^^ 
11190 REM sh VERTRIEESGESELL. UND RRBEITER * 

11200 REM Hs sh sh i'h sh si's sh sh sh Wi sh Hi Hi sh s|s Hi sh i'h sh sh sh H sh H sh sh i'h H sh sh s|< sh sh H H sh H H sh H sh sh sh H 

11210 FORI=:lTnMI 
11220 PR I NT " : 33 pI EI...ER " ; I ? " : " 

1 1230 PR IN7'" glBMiai ülRRBE 17 ER " FiF: 'CI 7 

11240 F'R I NT " Hr'lRSCH INEN " ,MH 'ü I 7 

11250 PR I NT " ETv'E TR I EBSGESEL.L. " ... V''E 'S I 7 
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11260 

KAI 

^T< A I 

-50001* 

VEi: I 





1 1270 

INPIJT 

"Häi'UE 

VIELE 

vertrieb: 

iGESEL 

-.SCHAFT 

EN " ; 

14 

1 :l 280 

'■•■'E c :[ 

=VE C I 

h-H4 






11290 

KA C 1 > 

=k:h <: I 

-H4:*20000 





1 1300 

KRI 

^KA'.': I 

-HP <: I 

*AR I 





11310 

INPUT 

"Hgj'iiE 

VI ele 

ARE3E I TER 

' ; HT 




11320 

AR 11 

=RR':; I 

+ H4 






1 1330 

NEZT 








1 1340 

RE TUR 

N 







1 2010101 

Kt.ri 

**:***:i|i 

* * * * * * * * 

':**:i|t:f 4 

*4:4;* 'N'F'K 



1 20 1 0 

REM * 


AUTOMATISCHE AI 

:; t I V I I 

rett:i--i 


* 

1 LI c:_ LI 

12030 

IFRW':: 

SZ > <r;::L 

TI lENRK 

<SZ::'=0 ::IT 

Zz::0 : R9 

-■-0 GOT Ci 

12:1:: 

s 

:L 2040 

IFAR':: 

5Z > SMf 

SZ T‘F 

CMHlT=MR'::: 

;::z 




12050 

IFARi: 

5Z i >=;=l '' 

IT 0 SZ T 

|.,.|ENHA=W1A 

!•••; Z > 




12060 

IFHA> 

::::|7:W ^ 37: 

::'THENF 

6 = RW< SZ::' 





1:20i70i 

I FHFlC 

r?w SZ 

THENH6 

r^HA 





1 2090 

RW C SZ 

=rT:w 

Z::'-H6 






1 2 1 00 

FW c: SZ 

= FW C 

Z::'+H6 






121 10 

KR SZ 

==KA 

Z :> .10F 

0*H6 





:l. 2120 

I F"FW t: 

SZ > l-I 

THENFF 

t: SZ =0 : H 

:’=0 ::HF 

:-:0 :: SOT L 

12;::: 3 

Li 

12130 

IFVEi 

SZ::'<FI.' 

SZ TI- 

EE-IH7==:VE 

liI 




12140 

IFVE 

SZ ;■ >=-F 

W C SZ T 

HENH7=::FW 

! I— 1Z •' 




12150 

WA:r4'JAHH7 







12160 

FW SZ 

= FW s 

Z::'.H7 







12170 H8=:=H? 

121S 0 F 0 R I := S T 0 IST E P - 1 

12190 I FH7>6.MR I THENH3=:6-MR C I : MF: < I > =6 H7==HV’- ITS 

12200 H:3=6-MR I : l<H < ;3Z ;■ =:K:R < SZ > +H3^ I * 1800 

12210 I FH7<=H:3THE:NMF:: I =:MR t: I > iT-F'K:FI SZC SZ + 

12220 N E Z T H 7 i'H I1 Fi 0 8 : H 7'—0 

:L 2230 I FH8==0flNDH:3=:0T HENRETURI-1 
12240 FR I MT " EMM .SSF^' IELER " ; SZ 

12250 PRlNT"£iaffi| IHRE FlRBEITER PRODUZIEREN ZUR ZEIT 
12260 F'RIMT" MdW Jlä" " 1 ROHWAREN ZU FERTIOWAREN 

12270 IFHS=0THEN12300 

12280 PRINT'' M ei ftl i' lM UND IHRE VERTRIEBSGESELLSCHRFTEN 

122:30 PRINTTgaa VERKAUFEN i3";HS,;"!M FERTIGWAREN 

12300 l<L=l 

12310 FORI-1TO4000 

12320 NEZT 

12330 RETURN 

20000 REM *Ht*;'Ki‘FH<*i+;;'F******:'Hi'N'Nf:>NF*i'F************4:**H'^ 
20002 REM * 


20004 REM :<F UNTERPROGRAMME FUER BI LOSCH IRMANZEI GE* 

20006 REM * ;t: 

20001 e: F: E M * :* :* :* * * * :* * * * * * * :* :* * :* * * * * * * *:+: * :* * * :* * :* :* :* * * * * * * :* * 
2010110 : 
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20012 : 

20020 REM ******************************************** 
20022 REM * ROHWARE HHZEIGEN * 

20024 REM ******************************************** 

20030 I FR W <: SZ > =0THEWRETIJRN 

20050 FÜR I = 1TORW SZ 2' 

20060 PR I NT " 3>j " 

20070 NEKT 
20075 FR:INT"!i]" 

20030 RETURN 

20100 REN ******************************************** 
20110 REM * FERTIOWHRE HNZEIGEN * 

20120 REM ******************************************** 

20130 IFFW <: SZ :> =0THEN20230 

20150 FORI = 1TOFW SZ ;■ 

20160 PRINT"*"; 

20170 NEXT 
20175 PRINT"a" 

20180 RETURN 

20200 REM ******************************************** 
20210 REM * VERTRIEBSGESELLSCHHFTEN ANZEIGEN * 

20220 REN ******************************************** 

20230 I EVE <: SZ > =0THENRETURN 

20250 FOR I = 1 TO'v'E C SZ :> 

20260 PRINT"r"; 

20270 NEXT 
20275 PRINT"li]" 

20280 RETURN 

20300 REM ******************************************** 
20310 REN * MASCHINEN ANZEIGEN * 

20320 REM ******************************************** 
20330 I FM A C SZ --:0THENRETURN 
20340 PR I NT " SagMBlüMgMi.'g 
2 0 S! 5 0 F U F! I = 1 T U M A 'Uz- Z 


20360 PRINT'V-r"; 

20370 NEXT 
20375 F'F:INT"a" 

203S0 RETURN 

20400 REM ******************************************** 
20410 REM * ARBEITER ANZEIGEN * 

20420 REM ******************************************** 
20430 IF AR S Z ==.-0THENRETURN 

20440 PR I NT " igaMBMgWgKMttrMiglgMBJM»»ff jliJMiJh.'' ; 

20450 FuF! 1 = 1 TUAF! 'I SZ 
20460 PRINT"-!-"; 

20470 NEXT 
20475 PRINT"!ril" 

20480 RETURN 
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20500 
20510 
201520 
2015301 
205401 

20550 


REM ******************************************** 
REM * WEBS flNZEIGEH * 
REM ******************************************** 

IFWE <: SZ =0THENRETURW 


PR INT' 

FORI = 1TOWE < 


05 

60 

05 

701 

05 

75 

05 

50 

06 

00 

06 

10 

06 

201 

06 

301 

016 

40 

06 

50 

016 

601 

016 

701 

016 

30 

07 

0101 

01? 

101 

017 

20 


PRINT"4"■ 

NEXT 
PR INT "01" 

RETURN 

REM ******************************************** 
REM * KRPITflL RNZEIGEN * 

REM ******************************************** 


PRIUT' 
PRINTKRCSZ:: 


REM * ZU VERSTEUERNDES VERMOEGEN ERRECHNEN * 

PR INTKR SZ +MR C SZ i * 10000+RW SZ > * 150+FW C SZ 
RETURN *1500-BZO5Z::' 

REM ******************************************** 
REM * RNZEIGE ENTSCHEIDUNGEN LOESCHEN * 

REM ******************************************** 


20730 PRINT"ig5MSM" 

20740 PRINT" "r 

20750 FR: INT" " ; 

20760 PRINT" ",f 

20770 PRINT" "; 

207301 PRINT" 

20800 RETURN 

21000 REN ******************************************** 
21010 ,REM * RLLES RNZEIGEN * 

21020 REM ******************************************** 
21013 01 GO S U B 2 01010101 
21040 C-i O S U B ;2 011010 

21015 01 C-f O S LI B20120i 0i 

21016 01 G 0 S U B20130i 0i 

21017 01 C-i 0 S LI B 2 014 Ci 0i 
21013 0 ij O S LI B20500i 
21019 01 i3 0 S LI B 2 Ci 6 0i Ci 
21100 RETLIFIN 


2120101 
21210 
21220 
21230 
21240 
21250 
21260 
21270 


REM ******************************************** 
REM * FEHLRNZEIGE * 
REM ******************************************** 


PR INT "iS! 
PRINT"äJ 
F 0 RI = 1T05010101 
NE:7T 
RETURN 


NICHT VORHRNDEN ! ! 
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2200ö R El M i+ii+i i+: * sK :+i '¥■ if+i'>; H’i * * # Jl'i # * sE sE sE i+; -E ’E ^i': 'E -'E:+; 'E 4; ;'E -E * 

22010 REH * IHIHTERGRUNDFRRBE l'.IECHSELH * 

22020 R El H hE :'E * i'E i'E * :'E i'E ;E; * Jl'i JE JE JE JE JE JE JE JE iE Ei E E Ei E E E E E i'E E E JE JE JE Jl'i Ei jIj iE JE JE JE JE 

22030 F 0 RI == 01T 01 

22040 POI<E53280, I 

22050 P0I<EE53281 ,. 16-1 

2206 0 F- 0 F: Er ;= 1T 01 

22070 NEXT-J 

220S0 HEXTl 

22090 POKE53280,. 8 

22100 P0I<E53281 ,t; 

22110 RETURN 

6 0 01001 S Fl V E " e : I i R H fl G E R 3 " 8 s E N 0 


Programmbeschreibung 


Aufteilung des Zeilenbereiches: 

Hauptprogramm 

1000 - 1480 Programmvorspann und Dimensionieren der 

Felder sowie Vorbesetzen der Werte 
2000 - 2830 Spielzüge inklusive Steuerrunde bishin 

zur Unterscheidung der einzelnen Ent¬ 
scheidungen 

3000 - 3590 Positive Entscheidungen 

4000 - 4130 WEB kaufen 

5000 - 5540 Negative Entscheidungen 

6000 - 9630 Risiko 

9700 - 9800 Geschenk 


Unterprogramme 

10000 - 10180 Warenanzeigen 
11000 - 11170 Steuerrunde 

11180 - 11340 Vertriebsgesellschaften kaufen und 
Arbeiter einstellen 

12000 - 12330 Automatische Aktivitäten 
20000 - 20680 Anzeigen der Werte eines einzelnen 
Spie 1er 
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20700 - 20800 Entscheidungsfeld löschen 
21000 - 21100 Alles anzeigen 
21200 - 21270 Ware oder Geld nicht vorhanden 
22000 - 22110 Hintergrund blinken 


Vorspann 

MANAGER ist zwar ein sehr komplexes Spiel für den Spieler, 
für den Progammierer relativ zu seiner Komplexität jedoch 
sehr einfach. Wie man an der weiter hinten stehenden Va¬ 
riablentabelle sehen kann, kommt man trotz der Länge des 
Listings mit sehr wenigen Variablen aus. Dies sind in der 
Hauptsache die Felder, wo die einzelnen Werte des Spielers 
gespeichert werden, die auch in dem Vorspann in den Zeilen 
1260 bis 1480 dimensioniert und eventuell besetzt werden: 
das Kapitalfeld KA(), wobei jeder Spieler zu Beginn 20000 
Geldeinheiten erhält (Zeile 1280), sowie das Feld für be¬ 
zahlte Steuern, das auf den gleichen Wert gesetzt wird, 
sodaß von dem Startkapital keine Steuern mehr gezahlt wer¬ 
den brauchen. Weiterhin wird in Zeile 1470 für jeden Spie¬ 
ler der Lohn pro Arbeiter auf 3000 Geldeinheiten gesetzt. 

Ein weiteres Feld wird auch noch vorbesetzt: In jedem der 
acht Warenbereiche (Einkaufswert 100 - 800 / Verkaufswert 
1000-8000) werden je sechs Waren eingelegt. 

Dieser Vorspann wird nur einmal zu Programmbeginn durch¬ 
laufen. 


Allgemeiner Teil der Spielzüge 

Der Bereich der Zeilen 2000-2830 wird für jeden Spielzug 
eines jeden Spielers erneut durchlaufen. Dort wird zu¬ 
nächst die Spieleranzahl in Zeile 2030 um eins erhöht und 
abgeprüft, ob der letzte Mitspieler an der Reihe war; wenn 
ja beginnt die Runde wieder beim ersten Spieler. Außerdem 
wird die Anzahl der Runden hochgezählt (Zeile 2040), sodaß 
in Zeile 2080 abgefragt werden kann, ob eine Steuerrunde 
vorliegt, die im Bedarfsfälle mit dem Unterprogramm ab 
Zeile 11030 abgearbeitet wird. 

Dann wird noch geprüft, ob automatische Handlungen (Ver¬ 
trieb von Fertigwaren über Vertriebsgesellschaften bzw. 
Produktion von Rohwaren zu Fertigwaren mittels Arbeiter) 
durchgeführt werden kann. 

Im Anschluss wird ab Zeile 2170 der normale Bildschirm¬ 
rahmen angezeigt, mit den Waren am oberen Rand und dem 
Grundaufbau für die verschieden Wertgegenstände eines 
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Spielers. Dann werden ab Zeile 2460 die Zinsen, die ein 
Spieler bei negativem Kapitalstand zu zahlen hat ausge¬ 
rechnet. Durch Sprung auf des Unterprogramms ab Zeile 
21000 werden die Daten des Spielers in die bestehende Mas¬ 
ke einkopiert. Der gemeinsame Teil eines Spielzuges für 
jeden Spieler wird abgeschlossen, indem die Art des wei¬ 
teren Spielzuges festgelegt wird. Anhand dieser Zufalls¬ 
variablen wird dann in die entsprechenden weiteren Pro¬ 
grammstücke verzweigt. Hier kann sich durch Festlegung 
anderer Zahlen in den Statements 2670,2710,2750,2790 und 
2930 natürlich jeder seine eigenen Prioritäten für die 
Spielzüge setzen. 


Positive Entscheidungen 

Die Wirkungsweise der positiven Entscheidungen ist in 
den Spielanweisungen genau erklärt. Mit einer einfachen 
GET-Abfrage wird in Zeile 3065 in weitere Programmstücke 
verzweigt. 

Rohwaren kaufen 

Zunächst wird vom Bildschirm erfragt wieviel Rohwaren ein¬ 
gekauft werden sollen. Anschließend erfolgt eine Plausibi- 
1itätsprüfung, ob mehr Waren gekauft werden sollen, als 
auf dem Markt vorhanden sind. Wenn ja erfolgt eine Bild¬ 
schirmmeldung 'Eeh1anzeige'. 

Ansonsten wird die Anzahl der Waren im Markt um die einge¬ 
kaufte Anzahl der Rohwaren reduziert . Die Variable KA 
(nicht das Eeld KA() ) hat in diesem Spiel eigentlich kei¬ 
ne Bedeutung. Es soll in Zeile 3135 nur angezeigt werden, 
wie es zu realisieren wäre, wenn man bei negativem Kapital 
keine Waren mehr einkaufen könnte. In den Zeilen 3130 bis 
3165 wird für alle Warenfelder geprüft, wieviel Waren ent¬ 
nommen werden müssen, um sie den Spielern gutzuschreiben. 
In Zeile 3140 wird der Fall behandelt, daß ein Warenfeld 
mehr Waren enthält als vom Spieler angekauft wurden. In 
diesem Falle wird das Feld nur um die gekaufte Anzahl ver¬ 
ringert, diese Anzahl wird dem Spieler gutgeschrieben, und 
ihm vom Kapital abgezogen. Anschließend wird die Hilfsva¬ 
riable für die Anzahl der Waren auf Null zurückgesetzt. 

In Zeile 3145 wird der Fall behandelt, daß mehr Waren an 
den Spieler gehen sollen als das derzeitig behandelte Wa¬ 
renfeld hergeben kann. Analog zu dem Statement darüber 
wird hier jedoch die Anzahl der noch zu kaufenden Waren 
verringert und die Anzahl der Waren wird dem Rohwarenkonto 
des Spielers gutgeschrieben. 
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An dieser Stelle sei noch auf einen kleinen Kunstgriff 
hingewiesen: da nicht alle Anweisungen des IF-Befehls in 
eine Zeile untergebracht werden konnten, mußte die Berech¬ 
nung des neuen Kapitals für den Spieler und das Rücksetzen 
des Warenfeldes auf '0' Waren aus der Zeile ausgelagert 
werden. Dies geschieht mit einem Sprung auf Zeile 3155 wo 
diese beiden Tätigkeiten durchgeführt werden. Das Ende der 
lE-Abfrage läuft sofort auf das NEXT-Statement. Wird aber 
dieser lE-Befehl nicht ausgeführt, so müssen natürlich 
diese beiden Statements übersprungen werden, was in Zeile 
3150 geschieht. Ein NEXT in Zeile 3150 mag offensichtlich 
den gleichen Dienst erweisen, jedoch sollte bei sauberer 
Programmierung zu jedem FOR nur ein NEXT existieren , da 
es sonst zu einem 'NEXT WITHOUT FOR ERROR' kommen kann. 

Maschinen kaufen 

Das Kaufen von Maschinen erfolgt analog zum Kaufen von 
Rohwaren, jedoch muß hier nicht abgeprüft werden, ob noch 
Maschinen vorhanden sind. In diesem Falle jedoch wurde 
eingebaut, daß Maschinen bei negativen Kapitalstand bzw. 
Kapital unter 10000 Geldeinheiten nicht gekauft werden 
können. 

Produzieren 

Beim Produzieren der Waren muß einerseits geprüft werden, 
ob die Zahl der zu produzierenden Waren überhaupt im Roh¬ 
warenlager vorhanden ist (Zeile 3120), beziehungsweise ob 
genügend Maschinen vorhanden sind (Zeile 3125). In beiden 
Fällen wird auf die Ausgabe einer entsprechenden Benutzer¬ 
meldung gesprungen und anschließend auf das Einlesen der 
Warenanzahl. Im anderen Fall wird die Zahl der Waren vom 
Rohwarenlager abgezogen und dem Fertigwarenlager hinzuge¬ 
fügt sowie das Kapital des Spielers um die Produktionskos¬ 
ten (1000 Einheiten je Ware) verringert. 

Verkaufen 

Das Gegenstück zum Einkäufen von Rohwaren ist das Verkau¬ 
fen von Fertigwaren - auch programmmäßig. Zunächst muß je¬ 
doch geprüft werden (Zeile 3520) ob soviele Fertigwaren 
auf dem Lager sind, wie verkauft werden sollen. 

Dann wird die Anzahl der verkauften Waren dem gesamten Wa¬ 
renbereich wieder zugeschlagen und die Anzahl der Fertig¬ 
waren des Spielers um die entsprechende Zahl verringert. 
Der Verkauf der Waren erfolgt natürlich nicht gesamt für 
alle Waren zu dem gerade höchsten Preisbereich, sondern 
der Markt wird von hinten her (von den höheren Preisberei¬ 
chen) her aufgefüllt. Dazu wird eine Schleife für alle Wa- 
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renpreisbereiche durchlaufen. 

In dieser Schleife wird festgestellt, ob bereits das 
Marktsegment mit sechs Waren belegt ist. In diesem Falle 
wird das nächste Marktsegment überprüft. Die folgende Ab¬ 
frage (Zeile 3545) führt zu einer Durchführung, wenn mehr 
Waren in den Markt gelegt werden sollen als das derzeitige 
Segment aufnehmen kann. In diesem Falle wird der Hilfsva¬ 
riablen H3 die Anzahl der einzufügenden Waren übergeben, 
das Marktsegment als voll gekennzeichnet, von den verkauf¬ 
ten Waren die untergebrachten Waren abgezogen, sowie das 
Kapital des Spielers um den Verkaufswert erhöht (1000 Ein¬ 
heiten mal Segmentnummer). Der andere Fall (Zeile 3555) 
tritt ein, wenn mehr freie Felder im Marktsegment vorhan¬ 
den sind als Waren verkauft wurden. Dann wird das Segment 
um diese Zahl erhöht und das Kapital des Spielers entspre¬ 
chend. Wie nach allen Entscheidungen wird auch hier wieder 
ein Sprung auf das Programmstück für den nächsten Spieler 
durchgeführt. 


WEB kaufen 

Das Kaufen von WEB's gestaltet sich recht einfach, da 
weder die Zahl der WEB's begrenzt ist, noch ein WEB-Kauf 
abgelehnt wird, wenn das Kapital negativ ist. Im Prinzip 
wird nur das Kapital des Spielers um 1000 Einheiten ver¬ 
ringert und die Anzahl der WEB's um eins erhöht. Ein wei¬ 
terer Zusatz ist im Programm enthalten: Bei drei WEB's 
kann man diese in eine Maschine umwandeln. Dies geschieht 
in den Zeilen 4110 und 4120. Dieses Programm wird natür¬ 
lich durch eine entsprechende Abfrage in Zeile 4060 gege¬ 
benenfalls übersprungen. 


Negative Entscheidungen 

Wie auch bei den positiven Entscheidungen werden zunächst 
die negativen Entscheidungen für den Spieler angezeigt und 
er kann die für ihn Günstigste aussuchen. 

Fertigwaren zum halben Preis. 

Dieses Programmstück funktioniert analog zum Verkauf der 
Fertigwaren, jedoch wird hier nicht mehr abgefragt wie¬ 
viele Waren verkauft werden sollen, sondern der Variablen 
H2 wird der gesamte Wert der Fertigwaren zugewiesen. Wer 
Rechenzeit einsparen will kann natürlich das Programmstück 
sofort verlassen wenn FE(SZ) gleich null ist. Das Einlegen 
in den Markt und die sonstigen Berechnungen wurden oben 
schon beschrieben. 
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10% Kapitalabzug 

Beim Kapitalabzug ist nur zu beachten, daß bei negativen 
Kapital nicht 10% von diesen negativen abgezogen werden, 
was dann einer Kapitalerhöhung durch die beiden negativen 
Vorzeichen gleich käme. Deshalb wird der absolute Betrag 
des Kapitals zur Berechnung herangezogen. 


1000 DM je Maschine 

Braucht nicht näher erläutert werden. 


WEB bezahlen 

WE(SZ) wird um eine Einheit vermindert 


Risiko 

Der Spielzug 'Risiko' kann vom Spieler nicht beeinflußt 
werden. Zunächst erscheint eine blinkende Anzeige am Bild¬ 
schirm, anschließend wird in Zeile 6240 eine neue Zufalls¬ 
zahl kreiert, die die Werte 1 bis 33 annehmen kann. Auf¬ 
grund dieser Zufallszahl wird anschließend in den entspre¬ 
chenden Programmteil verzweigt. Wer seine Risikovarianten 
verringern oder ausbauen möchte, oder diverse Risikoarten 
mit anderen Wahrscheinlichkeiten belegen, der kann entwe¬ 
der den vorhandenen Sprungverteiler verringern oder ergän¬ 
zen bzw. einen Sprungvertei1er einbauen, wie er für die 
Art des Spielzuges im Zeilenbereich 2000 verwendet wurde. 


Sonderangebot wenn Ware vorhanden 

Wenn keine Ware vorhanden ist, wird eine erneute Zufalls¬ 
zahl für Risiko generiert. Andernfalls werden dem Spieler 
fünf Einheiten Fertigware zu je 2000 Einheiten angeboten. 
Diese werden dem Markt entnommen, wobei das Programm ana¬ 
log dem Einkauf von Rohwaren funktioniert, jedoch die ein¬ 
gekauften Waren dem Feld für Fertigwaren ( FW() ) gutge¬ 
schrieben werden und das entsprechende Kapital abgezogen 
wird (Zeile 6540). 

Maschine oder WEB zurück 

Ist kein WEB vorhanden so wird sofort dem Spieler eine Ma¬ 
schine abgezogen. Das Spiel ist etwas hinterlistig an die¬ 
ser Stelle, da auch eine Maschine abgezogen wird, wenn 
keine vorhanden ist. So gerät der Spieler mit einer Ma- 
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schine ins Obligo, d.h. er muß erst eine Maschine kaufen 
und kann doch nicht produzieren. Wem dieser Zustand nicht 
gefällt, der kann hier eine Abfrage 'IF MA(SZ)=0 THEN 
6240' voranstellen. 

Hat der Spieler bereits WEB’s gekauft, so kann er wahl¬ 
weise für die Maschine ein WEB abgeben. Auch hier macht 
sich der Vorteil des WEB's wieder bemerkbar, da - wenn 
WEB's vorhanden sind - keine negative Maschinenzahl zu¬ 
stande kommen kann. 

Zinsen und Geldbußen 

In dem folgenden Programmstück werden insgesamt sechs 
Risikofälle behandelt. Bei den Zinsen wird jeweils der an¬ 
gegebene Prozentsatz vom Kapital in der Variablen H6 zwi¬ 
schengespeichert und anschließend dem Kapital gutgeschrie¬ 
ben. D.h., daß die Zinsen für Spieler mit positivem Konto¬ 
stand positiv sind und für Spieler mit negativem Konto¬ 
stand dementsprechend negativ. Wer will kann sich diese 
sechs Progammstücke in ein einziges Unterprogramm zusam¬ 
menfassen, welches als Auf rufparameter eine Variable be¬ 
kommt, die den gewünschten Zinssatz enthält. 

Geldbußen sind immer negative Zahlungen, da die Prozent¬ 
sätze vom Kapital immer abgezogen werden. 

1000 DM an jeden Spieler 

Diese Risikovariante funktioniert analog dem Abzug einer 
Maschine. Auch hier kann wahlweise ein WEB abgegeben wer¬ 
den. 

Verlust Fertigwaren 

Eine unter Umständen spielentscheidende Variante sind die 
Verluste von Fertigwaren und Rohwaren. In den Zeilen 7200- 
7310 wird der Verlust der Fertigwaren behandelt. Abgefan¬ 
gen werden kann dieser Verlust durch Zahlung von zwei 
WEB’s. Die vorliegende Variante ist vielleicht nicht so 
einschneidend, da die Eertigwaren in Zeile 7280 ins Roh¬ 
warenlager zurück gestellt werden. 

Schadensersatz 

In dieser Risikovariante werden nur die im normalen Spiel¬ 
ablauf vorhergehenden und nachfolgenden Spielpartner be¬ 
vorzugt. Oeder dieser beiden Spielpartner erhält 2000 
Geldeinheiten, wobei sie jedoch 4000 Einheiten durch Ein¬ 
satz von zwei WEB’s erstattet bekommen können. 
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Brand im Rohwarenlager 

Dies ist wohl die wichtigste Risikovariante, da Spieler 
die Rohwaren gehortet haben - und dadurch andere Spieler 
nicht produzieren können - hier gezwungen werden die Roh¬ 
waren - und noch dazu noch kostenlos - herzugeben. Wie 
beim Verkauf der Fertigwaren werden die Rohwaren - unter 
Zuhilfenahme der Variablen H5 - wieder in den Markt einge¬ 
legt. Wenn der Spieler will, kann er für ein WEB 5000 DM 
erstattet bekommen. 

500 DM je Fertigware 

Für jede Fertigware werden 500 Einheiten vom Kapital abge¬ 
zogen. Im wirklichen Verlauf könnte man dieses für erhöhte 
Lagerkosten bzw. Strafe für Zollgebühren oder ähnliches 
heranziehen. 

5000 DM für eine Maschine 

Eine positive Risikoart, wo man statt 10000 Geldeinheiten 
5000 Geldeinheiten für eine Maschine zu zahlen braucht. 
Spekulierende Spieler kaufen vielleicht zu Anfang alle 
Waren auf, damit andere Spieler nicht produzieren können 
und warten -aufgrund von Kapitalmangel- auf diese Art der 
Risikoentscheidung auch noch auf eine billigere/kostenlose 
Maschine. 

Brand im Fertigwarenlager 

Siehe Brand im Rohwarenlager. Bei dieser Entscheidung ver¬ 
liert man zwar alle Fertigwaren, jedoch muß diese Ent¬ 
scheidung nicht unbedingt negativ sein, da man für je ein 
WEB 10000 Geldeinheiten erstattet bekommt. Sehr positiv 
ist diese Risikovariante, wenn man nur eine Fertigware hat 
aber ca. 10 WEB's. Zeile 7960 behandelt die Verrechnung 
von WEB's und Kapital. 

Geldbußen / -eingänge 

Wie die Zinsen und Geldbußen kann man die folgenden Risi¬ 
kovarianten natürlich auch in einem Unterprogramm zusam¬ 
menfassen. In diesem Falle werden nur Festwerte vom Kapi¬ 
tal abgezogen bzw. hinzugefügt. Diesen Betrag könnte man 
auch als Hilfsvariable in einem Unterprogramm geben. Be¬ 
sonders geeignet ist diese Programmänderung für Anfänger. 
Machen sie sich dazu vielleicht im Zeilenbereich ab Zeile 
30000 ein kurzes Unterprogramm, das wie folgt aussehen 
könnte: 
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PRINT'Meldung" 

KA(SZ)=KA(SZ)+H8 
FOR 1=1 TO 3000:NEXT 
G0T02000 

Und übergeben sie in der Variablen H8 jeweils den gewün¬ 
schten Betrag, der auch negativ sein kann, und eventuell 
auch noch durch eine Zufallszahl gebildet wird mit: 

H8 = INT( 20 * RND(5))-11 * 1000 

für Zufallszahlen in lOOOer-Stufen von -10000 bis 10000. 

Kostenlose Vertriebsgesellschaft 

Bildschirmausgabe - Zahl der Vertriebsgesellschaften 
erhöhen - Warteschleife - Sprung auf Beginn des nächsten 
Spielers. 

Kostenlose Maschine 

Bildschirmausgabe - Zahl Maschinen erhöhen - Warteschleife 
- Sprung auf Beginn des nächsten Spielers. 

Weihnachtsgeld 

Ein großer Griff in den Geldbeutel ist die Weihnachtsgra¬ 
tifikation, wobei vom Kapital des Spielers für jeden Ar¬ 
beiter 5000 Einheiten abgezogen werden. 

Alle Arbeiter kündigen 

Bildschirmausgabe - Arbeiterzahl auf 0 setzen - Warte¬ 
schleife - zum Spielzug des nächsten Spielers. 

Diese Risikoart kann je nach Lage positiv oder negativ 
sein. Ein Spieler mit vielen Rohwaren, Maschinen und Ver¬ 
triebsgesellschaften wird erhebliche Verluste erleiden 
(bis zur nächsten Steuerrunde), wohingegen ein Spieler mit 
Lohnzahlungen von 5000 Geldeinheiten sicherlich froh ist, 
wenn seine überbezahIten Arbeiter kündigen. 

Fertigwaren für 10000 DM 

Das Programm erfolgt analog zum Verkauf der Fertigwaren 
zum halben Preis, nur werden hier jedoch Festsätze für den 
Verkauf der einzelnen Waren, unabhängig vom Marktsegment, 
festgelegt. Außerdem kann der Spieler bestimmen, ob er da¬ 
mit einverstanden ist. Sicher werden Sie jetzt sagen: wer 
täte es nicht; aber es gibt Spielsituationen in denen man 
verhindern muß, daß Waren auf den Markt gelangen. 
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TarifVerhandlungen 

Wer schon Übung hat, kann das folgende Programmstück na¬ 
türlich auch wieder mit einem einzigen Unterprogramm er¬ 
setzen. Im Prinzip werden fünf verschiedene neue Löhne für 
die Arbeiter ausgehandelt. Dies kann einerseits positiv 
(Arbeitslohn DM 100) oder auch sehr negativ sein (DM 
5000). Auch hier wird wieder das Schema verfolgt: 

Bildschirmmeldung - Arbeitspreis besetzen - Warteschleife 
- nächster Spieler. 

Sabotage 

Auch das folgende Programmstück kann mit einem Unterpro¬ 
gramm erledigt werden. Im Gegensatz zu den Geldbußen in 
Prozenthöhe des Kapitals wird hier das gesamte Vermögen 
herangezogen, da auch trotz wenig Kapital ein großes Ver¬ 
mögen vorhanden sein kann (Maschinen, Rohwaren, Fertig¬ 
waren) . 


Geschenke 

Neben dem WEB-kaufen ist das Geschenk wohl der einfachste 
Vorgang. Dem Kapital des Spielers werden 100000 Geldein¬ 
heiten gutgeschrieben und der Begriff 'Geschenk DM 100000' 
wird lOOmal auf dem Bildschirm angezeigt. 


Unterprogramme 


Waren anzeigen 

Da je Marktsegment sechs Waren in zwei Reihen zu je drei 
Stück untergebracht sind, wird für die Bildschirmsteuerung 
das Ganze in zwei verschiedenen Unterprogrammen unterge¬ 
bracht, je eines für die obere und unter'cj Reihe. 


Steuerrunde 

In der Steuerrunde wird zunächst für jeden Spieler das 
Vermögen in der Variablen HI() festgehalten, wozu das Ka¬ 
pital um die Anzahl der Rohwaren (Wert 150), die Anzahl 
der Fertigwaren (Wert 1500) und die Anzahl der Maschinen 
'Wert 10000) erhöht wird. Dann wird von diesem Vermögen 
noch das bereits versteuerte Vermögen abgezogen und der 
Rest in der Variablen HL() abgespeichert. HL() enthält 
also das zu versteuernde Einkommen^. Auf Grund des Steuer- 
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Schlüssels in der Spielanleitung wird in den Zeilen 11080- 
11110 der Steuerwert ausgerechnet, wobei natürlich Freibe¬ 
träge berücksichtigt werden. Ist das Vermögen größer als 
bei der letzten Versteuerung, wird die Steuer vom Katital 
abgezogen, das versteuerte Vermögen auf den aktuellen Wert 
gesetzt, und die Daten werden ausgegeben. 


Neue Arbeiter und Vertriebsgesellschaften 

Anschließend nach der Steuerrunde folgt das Programmstück 
wo sich alle Spieler neue Arbeiter oder Vertriebsgesell¬ 
schaften zulegen können. Zuvor erfolgt noch eine Anzeige 
wieviele Arbeiter, Maschinen oder Vertriebsgesellschaften 
jeder Spieler schon besitzt. 


Automatische Aktivitäten 

Unter dem Begriff 'automatische Aktivitäten' sind der Ver¬ 
kauf von Fertigwaren über Vertriebsgesellschaften und die 
Produktion von Rohwaren zu Fertigwaren mittels Arbeiter 
zusammengefaßt. Zunächst erfolgt die Bearbeitung der Roh¬ 
waren und ab.Zeile 12120 der Vertrieb der Fertigwaren. 

Rohware mittels Arbeiter produzieren 

Zuerst wird überprüft, ob überhaupt Rohwaren vorhanden 
sind (Zeile 12030). Dann wird eine Hilfsvariable HA be¬ 
setzt, die das Minimum der beiden Variablen AR(SZ) bzw. 
MA(SZ) beinhaltet, da maximal nur soviel produziert werden 
kann, wie entweder Arbeiter oder Maschinen vorhanden sind. 
Dann wird überprüft, ob die Produktionskapazitäten (HA) 
größer oder kleiner sind als die Anzahl der vorhandenen 
Rohwaren. Entsprechend wird die Variable H6 vorbesetzt. 
Zur späteren Ausgabe wird noch die Variavle H9 mit dem 
Wert von H6 besetzt, dann wird die Anzahl der Rohwaren um 
die zu produzierenden Einheiten verringert und die Anzahl 
der Fertigwaren entsprechend erhöht, sowie die Produk¬ 
tionskosten dem Spieler abgezogen. Man kann natürlich an 
dieser Stelle hergehen und die Kosten für automatisch 
produzierte Ware herab- oder heraufsetzen. Bei dem ur¬ 
sprünglichen Spiel reduziert sich der Produktionspreis pro 
Ware auf die Hälfte, wenn die Produktion mittels Arbeiter 
erfolgt. 

Fertigwaren mittels Vertriebsgesellschaften verkaufen 

Analog zur Produktion von Rohwaren zu Fertigwaren erfolgt 
der Vertrieb von Fertigwaren. Hier werden die Variablen H7 
und H8 zu Hilfe gezogen. Zunächst wird noch überprüft, ob 
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ein negativer Fertigwarenbestand da ist, der eventuell 
durch ein Softwarefehler hervorgerufen werden kann. Dieser 
Bestand wird natürlich anulliert. In den Zeilen 12130 und 
12140 wird überprüft, ob mehr Fertigwaren oder mehr Ver¬ 
triebsgesellschaften vorhanden sind, und dieses Ergebnis 
dann in der Variablen H7 abgelegt. Dann wird die Zahl der 
Waren um diesen Wert erhöht und die Zahl der Fertigwaren 
wird um diesen Betrag vermindert. Der Variablen H8 wird 
noch dieser Wert zugeordnet, und im folgenden werden die 
Waren - wie auch beim normalen Verkauf - in den Markt zu¬ 
rückgelegt und der Marktpreis wird dem Spieler gutge¬ 
schrieben. Die Hilfsvariablen H8 und H9 bestimmen nun, ob 
eine Meldung produziert wird oder nicht. Sind beide 0, so 
wird sofort zurückgesprungen; ansonsten werden die verar¬ 
beiteten Werte auf dem Bildschirm ausgegeben. 


Unterprogramme für Bildschirmanzeigen 

Die Unterprogramme zum Anzeigen der Bestände der einzelnen 
Spieler sind strukturmäßig alle gleich aufgebaut. Das Un¬ 
terprogramm wird jeweils sofort verlassen, wenn keine Wer¬ 
te auszugeben sind, ansonsten wird über einen PRINT-Befehl 
der Cursor an den Beginn der entsprechenden Ausgabestelle 
gesetzt und dann, für jedes Element, das auszugeben ist 
(z.B. Rohwaren) ein Zeichen gedruckt; anschließend wird 
die Farbe wieder auf gelb umgeschaltet. 

Rohwaren werden durch einen weißen Ring gekennzeichnet, 
Fertigwaren entsprechend durch einen weissen Kreis, Ver¬ 
triebsgesellschaften durch ein auf der Spitze stehendes 
rechtwinkliges Dreieck. Maschinen werden durch ein grafi¬ 
sches Sonderzeichen dargestellt, das - ergänzt um das ent¬ 
sprechende Zeichen des Arbeiters - für jede Kombination 
Maschine/Arbeiter ein querliegendes H ergibt. 

Beim Anzeigen des Kapitals wird einerseits das Kapital an¬ 
gezeigt und andererseits das vom Spieler erwirtschaftete 
Vermögen, das noch versteuert werden muß. Hier können auch 
negative Beträge erscheinen, was dann bedeutet, daß dieser 
Betrag noch steuerfrei verdient werden kann. 

Das Unterprogramm ab Zeile 20700 bis 20800 dient nur zum 
Löschen der Entscheidungsmenüs der Spieler. Dazu wird der 
Cursor auf den Anfang dieses Menüs gesetzt und dann werden 
nur Leerzeilen ausgedruckt. 

Hintergrundfarbe wechseln 

In dem Unterprogramm ab Zeile 20000 wird lediglich in zwei 
ineinander geschalteten Schleifen die Hintergrundfarbe 
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nacheinander mit allen möglichen Werten (Variable I) be¬ 
legt, wobei die Farbe für den Rahmen an der anderen Seite 
der Farbskala beginnt. Anschließend wird wieder auf einen 
orangefarbenen Rahmen und einen blauen Hintergrund 
geschaItet. 


Änderungen und Ergänzungen 

Wie bereits im Text angesprochen, können natürlich sehr 
viele Änderungen und Ergänzungen durchgeführt werden. Eine 
relativ einfache Änderung ist wohl das Ersetzen der EOR... 
NEXT-Warteschleifen durch ein Unterprogramm, an das durch 
eine Variable jeweils die Wartedauer übergeben wird. Es 
kann aber auch der PAUSE-Befehl aus Band 1 herangezogen 
werden. 

Des Weiteren können häufig auftretende gleiche Programm¬ 
stücke - was in der Regel bei den Risikovariablen der fall 
ist - durch Unterprogramme mit entsprechenden Parameter¬ 
aufrufen ersetzt werden. Diese wurden schon in den einzel¬ 
nen Textabschnitten beschrieben. 

An Spieleigenschaften können z.B. geändert werden: 

Produktionspreis bei automatischer Produktion 
halbieren 

- Steuerschlüssel ändern 

- Arbeitslöhne ändern 

- Vertriebsgesellschaften kaufen bzw. Arbeiter ein¬ 
stellen aus dem Steuerbereich herausnehmen und als 
zusätzlichen Spielzug einführen (wie z.B. positive 
/ negative Entscheidungen, WEB kaufen, Risiko oder 
Ge schenke). 

- Risikovarianten erweitern, verkürzen oder ändern 

Maschinenkauf auch bei negativem Kapitalbestand 
zulassen 

- (für den Spiel-Anfänger) die Verzinsung von 
negativem Spielkapital aufheben 

- Positives Spielkapital auch verzinsen 

- Das Unterprogramm zum Wechseln der Hintergrundfarbe 
ändern 

- Bei der Risikoanzeige den Bildschirm blockweise 
ändern 

- auch Verkauf und Abgabe von Maschinen, Vertriebs¬ 
gesellschaften und Arbeitern zulassen 

- Verkauf von Rohwaren und/oder Fertigwaren, 

Maschinen und/oder Vertriebsgesellschaften an 
andere Spieler 

- Laufende Spielstandsanzeige der Spieler entweder 
am rechten oder unteren Bildschirmrand 
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Wie man sieht, gibt es gerade bei diesem Spiel sehr viele 
Möglichkeiten das Spiel noch weiter auszubauen. Wenn Ihnen 
der Speicherplatz knapp wird, können Sie natürlich die 
REM-Zeilen entfernen. Diese machen einen erheblichen Teil 
der Speicherkapazität aus. 


MANAGER 


1000 - 22110 


Variablen: 


! Name 

Typ 

! Bereich 

! Bedeutung 

! A 

H 

! Integer 

! Wert von A$ 

! A$ 

H 

! 1 Zeichen (O/N) 

! Einlesen eines Zei- 



1 

! Chens 

! B 

H 

! 1...33 

! Sprungverteiler für 



! 

! Risiko 

! GE 

H 

1 1...20 

! Laufvariable 

! Hl 

H 

! 1...50 

! Zufallszahl für Art 

! 


! 

! des Zuges 

! H2 

H 

! divers 

! temporäre Variable zum 



! 

! Einlesen einer Zahl 



1 

! des Spielers 

! H3 

H 

! divers 

! temporäre Variable 

! H4 

H 

! divers 

! temporäre Variable zum 



! 

! Einlesen einer Zahl 



1 

! des Spielers 

! H5 

H 

! divers 

! temporäre Variable 

! H6 

H 

! divers 

! temporäre Variable 

! H7 

H 

! divers 

! temporäre Variable 

! H8 

H 

! divers 

! temporäre Variable 

! H9. 

H 

! divers 

! temporäre Variable 

! Hl$ 

H 

! Zeichenreihe 

! Unterstreichen 

! I 

H 

! 1. ..8 / 1...MI 

! Laufvariable 

! J 

H 

! 1...3 / 4...6 

! Laufvariable 

! MI 

G 

! 1...(10) 

! Zahl der Mitspieler 

! RU 

! G 

! 1. . .5 

! Nummer der RUnde (jede 



! 

! 5.Runde - Steuerrunde) 

! SZ 

! G 

! 1...MI 

! Spielzug = Nummer des 



! 

! aktuellen Spielers 

! WA 

! G 

! 0...48 

! Zahl der WAren 
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Felder (Arrays): 



Name 

! Dirnen. 

Typ 

Bereich 

__ __ - ! 

! Bedeutung 1 


AP 

! 1. 

. .MI 

G 

1. . . 

! Arbeiter-Preis 1 


AR 

! 1. 

. .MI 

G 

1. .. 

1 ARbeiter je Sp. ! 


BZ 

! 1. 

. .MI 

G 

Dezimal positiv! KApital, von dem! 



! 




! bereits Steuern 1 



! 




! Bezahlt wurden ! 


FW 

! 1. 

. .MI 

G 

1. . . 

! Fertigwaren ! 


HI 

! 1. 

. .MI 

H 

Dezimal 

1 Hilfsarray für 1 



! 




1 Steuerberechnung! 


HL 

! 1. 

. .MI 

H 

Dezimal 

1 Hilfsarray für ! 



1 




1 Steuerberechnung! 


KA 

! 1. 

. .MI 

G 

Dezimal 

! KApital je Sp. 1 


MA 

! 1. 

. .MI 

G 

1. . . 

! MAschinen je Sp.! 


MR 

! 1. 

. .8 

G 

0... 6 

1 MaRktsegmente ! 


RW 

! 1. 

. .MI 

G 

1. . . 

! Rohwaren je Sp. ! 


VE 

! 1. 

. .MI 

G 

1. . . 

! VErtiebsgesel1- ! 



! 




1 schäften je Sp. ! 


WE 

! 1. 

. .MI 

G 

1 . . . 

! WEB 's je Spieler! 
---___________ 1 


Unterprogrammaufrufe : 


i n 


nach 

! 

Zweck 

1120 

! 

22030 

! 

Hintergrund 'blinken' 

2080 

! 

11030 

! 

Steuern errechnen 

2130 

! 

12030 

! 

Automatische Tätigkeiten 

2250 

! 

10030 

! 

Weniger als 3 Waren in einem Eeld anz 

2260 

! 

10110 

! 

Mehr als 3 Waren in einem Eeld anzeig 

2590 

1 

21000 

! 

Daten des Speilers anzeigen 

3120 

1 

21230 

! 

Eehlanzeige 

6200 

! 

22000 

1 

Hintergrund 'blinken' 


Verzweigungen nach außen : 


in Ze ! nach ! Bedingung ! Bemerkung 

keine ! ! ! 
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3. Kartenspiele 


Nachdem wir schon in 'Das Commodore 64 Buch, Band 1' ein 
Kartenspiel (POKER) vorgestellt haben, wollen wir diesem 
Buch noch zwei weitere Spiele hinzufügen: ZWISCHEN und 
BLACK OACK. ZWISCHEN ist ein relativ einfaches Wettspiel 
und dementsprechend ist das Programm auch einfach gestal¬ 
tet. BLACK OACK dürfte wohl jedem passionierten Spieler 
bekannt sein. Sicherlich gibt es auf dem Markt grafisch 
bessere BLACK OACK-Spiele. Aber der Sinn dieses Buches ist 
es ja nicht, fertige Spiele abzuliefern, sondern den Leser 
zum Selbstprogrammieren anzuregen, und wenn es nur die Er¬ 
gänzung eines bestehenden Spieles ist. 


ZWISCHEN 


Spielanleitung 


Ähnlich wie die anderen Programme auch, wird ZWISCHEN mit 
LOAD "ZWISCHEN",8 (RETURN-Taste) 
geladen und mit 

R-U-N (RETURN-Taste) 


gestartet. 

ZWISCHEN ist ein einfaches Wettspiel, bei dem jeder Spie¬ 
ler drei Karten erhält, wobei zunächst eine Karte verdeckt 
ausgegeben wird. Die Kartenfarben sind nicht entscheidend, 
sondern nur die Kartenhöhe. Die Wette geht darum, daß der 
Spieler wettet, daß die dritte Karte in ihrer Höhe ZWI¬ 
SCHEN die beiden anderen ausgegebenen Karten paßt. 

Der Rechner erfragt zu Beginn die Anzahl der Mitspieler. 
ZWISCHEN wird erst richtig schön, wenn möglichst viele 
Spieler daran teilnehmen. Aber Vorsicht: es wird nicht für 
jeden Spieler neu gemischt, sodaß die Zahl der Mitspieler 
durch die Zahl der Karten begrenzt ist. Bei der vorlie¬ 
genden Version sind also bis zu 17 Spieler möglich, wobei 
jedoch der 17. Spieler - wenn er sich alle Karten seiner 
Vorgänger gemerkt hat - kein großes Risiko mehr eingeht. 
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Geben sie also zunächst die Anzahl der Mitspieler ein und 
dann deren Namen. Der Computer bringt dann die Meldung 

'DIE KARTEN WERDEN GEMISCHT'. 

In der Zwischenzeit wird der Pott, gegen den gewettet 
wird, besetzt. Deder Mitspieler erhält ein Startkapital 
von 100 Einheiten. Im Pott muß immer mindestens die Anzahl 
von Einheiten liegen, wie Mitspieler vorhanden sind. Wenn 
nicht, wird von jedem Spieler wieder eine Einheit abgezo¬ 
gen und dem Pott gutgeschrieben. 

In einer Schleife werden für alle Spieler nun jeweils die 
beiden offenen und die verdeckte Karte ausgegeben. Dabei 
werden diese schon vom Computer sortiert, so daß sich 
links der kleinere und rechts der höhere Wert befindet. 
Der Einsatz muß nun minimal eine Einheit betragen und darf 
maximal soviel betragen wie sich Einheiten im Pott befin¬ 
den. Der Rechner zeigt sowohl für jeden Spieler den Inhalt 
des Pottes, sowie dessen Kapital an und erfragt dann den 
Einsatz. 

Nachdem Sie ihren Einsatz eingebenen und die RETURN-Taste 
gedrückt haben, deckt der Rechner die verdeckte Karte auf, 
wartet noch einen Moment und gibt dann das Spielergebniss 
bekannt: 


'ZWISCHEN' 


oder 


'DU HAST LEIDER VERLOREN'. 

Der Spieleinsatz wird entweder dem Pott abgezogen und dem 
Spieler gutgeschrieben oder umgekehrt. 

Nach dem alle Spieler an der Reihe waren, wird eine Rang¬ 
liste mit dem jeweiligen Kapitalstand ausgegeben. An¬ 
schließend fragt der Rechner, ob noch eine Runde gespielt 
werden soll. Bitte beantworten Sie diese Frage entspre¬ 
chend mit 'D' oder 'N'. Beantworten Sie diese Frage mit 
'D' so erscheint wieder die Meldung 

'Die Karten werden gemischt'. 

Ansonst wird nochmal die Rangliste ausgegeben und das Pro¬ 
gramm beendet. 

Falls Sie nicht gerade der erste Spieler sind, sollten Sie 
sich die Karten Ihrer Vorgänger merken. Sie können dadurch 
ihre Gewinnwahrscheinlichkeit verbessern. 
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Lautet die Anzeige z.B. '2' und '3' (d.h. zwei aufeinan¬ 
derfolgende Kartenwerte), so sollten Sie natürlich nur den 
Mindesteinsatz setzen, da für Sie überhaupt keine Gewinn¬ 
aussichten bestehen. 


Programmlisting 


1000 

1010 REM* VORSPRNN UMD BESETZEN DER VRRlHBLEN * 

1020 R E M * * * * * * * * * * * ******* * * * * *******: * * * * * * ****** * * * * * 

1030 P0K:E532S0.f; 

1040 P01<E53281,e 

1050 INPUT": Mi!lli!!lt!Mi !!CTrilRf-iZRHL. DER MITSPIELER" ;ri:[ 

1060 DIMKP'D'II > 

1070 DIMKH'::MI> 

1030 DIMHfiif^CMI > 

1090 FORI^ITÜMI 
1100 KP'::i::'=99 

1110 P R11- ■ IT " □BitlßßiljaN IRI '1 E " ,r I ; " - T' E R S PIE L. E R " . ? : IH P U T LI Fl T,I 
1120 HEXT 
1130 Pi:i=MI 
1 140 DIMK:R'::MI*3,.2::' 

1150 DRTRF1.234 ,.5,6?'8,9ZBDK 
1160 DIMRRTC 13.:' 

1170 FORI ==11013 
1180 RERDRRT':: I 
1190 HEXT 

2000 REIM*****************;*;*;'h:*****:'l'i*******************:******* 

2010 REM* KRRTEH VERTEILEN * 

2020 REM******:** * * * *: * * *: * * * * * * ***:*: * * * *; * * * *;***: * * * * * ***;;* * * :* * * *: * 

2030 PR I NT " TMtlM iil ft MP M tl li!!.! »tt i IHDi H»i 1 8 »IJIE ICFIRTEN NERDEI 1 OEM I SCI-IT 

2040 F0EI==1T03*MI 

2050 KR I 1 == I NT' RND4 > *: 131 •+ 1 

2060 KRI 2 > == I NTRND C 5 *4 +1 

2070 FOR J==: I --1 TO 1 STEP -1 

2080 IFKR 1 1 =:L:.R J:l. l RNDI-DT I 2 ==1-03 J2 THEN20::5i3 

2090 NEXTJ 

2100 NEXTI 

2110 OOSUB4000 

2120 POI<E53230,, 1 

2130 P0KE532S1 1 

2140 F0RI==1T0MI 

2150 REM- RDSGRBE DER KRRTEN FUER EINEN SPIELER .— 

2160 PRINT"^": 

2170 REM- ERSTE KRRTE .....—.-..-..-.. 

2130 H2:=l 

219 0 G 0 S LI B 2 010 O 

2200 GOSTDEi 10i3G0 
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2210 REM- VERDECKTE KRRTE - 

2220 G 0 S U B20200 
2230 GOSUEl1000 

2240 REM- DRITTE KRRTE - 

2250 H2=3 
2260 G 0 S U B20300 
2270 G OS LI B10000 

2280 PR: IHT " s ".fPG;" KRPITRL " 

2290 PRINT"SJ" ;HR*a > ; ;KP'::i::' 

2300 IHPIJT".. DEIN EINSRTZ : ";EI 
2310 I FE I >Pi:iTHEN2290 

2320 REM- VERDECKTE KRRTE RUFDECKEN - 

2330 H2=2 

2340 G 0 S LI B2020i3 

2350 G O S LI B10000 

2360 Fi;iRK= 1T02000 : NE:«:T 

2380 Hl = ':: I-l 

2390 IFKRCHl + l 1 CKRCH1+2.. 1 RNDKRt:Hl+2 .. 1 CKRCH1+3.1 

GOT02470 

2400 REM- VERLOREN----— 

2420 FORK= 1 TO 1500 : NEIKT 
2430 KPC I ::'=KP’:: I ::'-EI 
2440 Pi:i=PO+EI 
2450 GOT02540 

2460 REM-GEWONNEN- 

2470 PRINT"3",; 

2480 FÜR K! = 1T0300 

2490 PR I NT " «ZW ISCHENÜZWISCHENHIIWISCHEN3ZWI SCHEU " 

2500 ne:«:t 

2510 KP<:i::'=KP'::i::'+EI 

2520 PO=PG-EI 

2530 IFPOCMITHEHGOSLIB3000 

2540 NE.KT 

2550 GGSLIB5000 

2570 IFR:T="N"THEN2600 
2580 I FR^ O- " J " THEN2560 
2590 GOTO20:30 
2600 G 0 S U B5000 
2610 END 

3000 REM***************:^**:^****************:^**************#* 
3010 REN* POTT NEU RUFFUELLEN * 

3020 REM**************************************************** 

3030 PO=PO+MI 
3040 F0RK=1T0NI 
3050 KPt:K::'=KP'::K>-l 

3060 ne:kt 

3070 RETURN 
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4000 REM**********************************JK************:^e**** 
4010 REM* KRRTEH JE SPIELER SORTIEREN * 

4020 REN**************************************************** 

4030 FORI=0TOMI-1 

4040 IFKfiC 1*3+1 1 >>KI=I':: 1*3+3., 1 ::'THEN40?0 

4050 HEXT 

4060 RETURN 

4070 H1 =KR <: I *3+1 1 > 

4080 KR <: I *3+1 1 =KR ■; I *3+31 
4090 KR < I *3+31 =H 1 
4100 GOTO 4050 

5000 REN**************************************************** 
5010 REN* RRNGLISTE * 

5020 REN**************************************************** 

5030 F0RI=1T0NI 
5040 KHC I ::'=KP<: I 
5050 HEXT 

5060 PR I NT " ITBMgl RRNGL ISTEfflS" 

5070 FGRI=1T0MI 
5080 M fl=-10 £i 0 0 £10 0 
5090 FGRJ=1T0MI 

5100 IFKH CJ >NRTHENNR=KH C J : W0=J 
5110 HEXT 

5120 PR I NT INl=li: C WG > KH C WO 
5130 KHC WO 1 111111 
5140 NE::::T 
5150 RETURN 

9999 END 

10000 REN**************************************************** 

10010 REM* KARTEN RUSGEBEH * 

10020 REN**************************************************** 

10030 H3= C I -1 *3+H2 
10040 fl=KR C H31 
10050 RR$=RRT<:fl::' 

10060 IFKR'::H3.,2::' = lTHENFT="i" :K:f="*" 

10070 IFKR'::H3.,2::'=2THENFT="*" :KT="*" 

10080 IFKR'::H3.,2::'=3THENFT=:"C‘' ;KT:="*" 

10090 IFKR c: H32 =4THENFi:= " : KT= " ♦ " 

10100 REM ******************** 

10110 REM ***** 1.ZEILE ***** 

10120 REM ******************** 

10130 PR I NT " 11-[aillllll" ; 

10200 REM ******************** 

10210 REN ***** 2.ZEILE ***** 

10220 REN ******************** 

10230 PRINT"! "F^.^RRJ:.:" ".jRR^^.r"! [Sllllllll" 

10300 REN ******************** 

10310 REN ***** 3.ZEILE ***** 

10320 REN ******************** 

10330 IFR=3THEHG0SUB15100:GOTO1G360 
10340 IFfl:>5THENGÜSUB 15200 :GOTO 10360 
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1 y 3 5 y G 0 S u B15 y y y 
10360 F'RINT"jgBHtllilllll" ; 

10400 REM i+i**:***:'^*********^;*:** 

10410 REN **?>:** 4. ZEILE 

10420 REM ^i+iif******:'^*****:*:**** 

10430 IF R=2THEHG0£:UB 15100: GOTO 10460 
10440 I Ffl=40RR=:50RFl>?TTIENG0SUB 15200 : GOTO 1 0460 
10450 Ci0SUESI5000 
10460 PRINT" JÜBiBHiBI" ; 

10500 R: E M Hi * * ;+i .4'; i+i :+i j|i -4: i>; :4 i+i Hy iF-+:' ili:+ ih: 

10510 REM mm* 5. ZEILE 4**4* 

10520 REN Hi;+iiF4Hii+i*4:4Hi**;+iHi4:44yKHi* 

10530 IF R=10RR=30RR=50RR=9T HEIH G0SUB15100:00T 0105 V' 0 
10540 I FR==7THENG0SUB 15300 ; GOTO 1 0570 
10550 IF R =: 6 0 R R > 9 T H E N G 0 S U B i 520O : G 0 1010 !:i 7 O 
10560 G 0 S U B15000 
10570 PRIHT"ÜinBIIIIHai8" ; 

10600 REIM Hi4:iF44i;44HyF4i44;4;HiHyF+;;+yE4 
10610 REN ****4; 6., ZEILE 4Hi*;fi4 

10620 REM Hii+üFtiHiHiHü+ii+Hy+yKHiHiHi***** 

10630 IFR=2THENGOSI.JB15100 ;GOTO 10660 
10640 IFR=40RR-50RR>7THENG0SUB15200:GOTO 10660 
10650 GOSUEMS000 
1 0660 PR 1HT" MUlinillll" ; 

10700 REM HHH,ii+;Hi#H-i**;+i*4i4Hi4:i+iHi4:H:;+iHi 
10710 REM mm* 7. ZEILE Hi**** 

10720 REM ifi+iHiHiHi*******:******** 

10730 IFR=3THENG0SUB15100:GOTO 10760 
10740 IF R I> 5 T H E H G 0 S U B15200 : G07 010760 
10750 G 0 S U ES 13000 
10760 PRINT"EllfflBBIBil" 

10800 R:EM Hi:+Hi:4H'::+:44iiF4iF4Hi4iHi4;HyF+:-4 
10810 REM HiifHiHi* 8„ ZEILE ***** 

10S20 REM *;+ii+:;+:*4:HiHyE*Hii+:i+iHiHi4:4*;+;H< 

10330 PR I HT " I " Fi- : RR$RRT ; " ■ [^IBBHBBI" 

10900 REN Hi Hi 4i i+i Hi Hi 4 4i Hi* Hi 4:+ .4:+ Hi H; Hi 
10910 REM i+iHiHi** 9. ZEILE **4:** 

10920 REM i+:44*i4Hi*4i****4iHiHi*i+i*4i* 

1 0930 PR I NT " ■ !_ I" ,■ 

10940 RETURN 

11000 F 0 R L. K = 1T 0 9 

11010 F'R I HT "iiiiiiliiSiiÄlBniBIHB«"; 

11020 NESHT 
11030 RETURN 

15000 REMHii+:*i+:4:*Hii+:*i+:i+:*4:**4:iMii+:4*HiHi*4:4Hi*4:i44:4*44:*4:+iHi*4:**4**Hi4:i44:HiHi 
15010 REM* ZEILEN MIT UNTERSCHIEDLICHER ZRHL VON EINTRREGEN * 
15020 REM*Hi*Hi**********i+iHi*Hi**i+ii'liHi*Hi****Hi*******Hi*Hii+i*Hi*Hi*Hi*Hi**Hi 
15030 REM***** KEIN EINTRAG ***** 

15040 PR INT "Bl I": 

15050 RETURN 
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15100 

REM***** 


EIN EINTRAG 

***** 

15110 

PRINT"«! " 

.:F*.r " 

" " " r" "B 1" .? 


15120 

RETURN 




15200 

REM***** 


ZWEI EINTRAEÜE 

***** 

15210 

PRINT"«! " 


" ;KT; " " ;!<$;" " ; "II !" ; 


15220 

RETURN 




15300 

REM***** 


DREI EINTRAEGE 

***** 

15310 

PRINT"«! " 

; F* ; " 

" " " ;"« !" ; 


15320 

RETURN 




1 3333 

END 





20010 REM* KARTE POSITIONIEREN * 

20020 REM**************************************************** 
20100 PR I NT " ." 

20110 RETURN 

20200 PR I NT " !sM i!! l ii lMe a iai!liiiiP>lllili| | iBii»»iti»ila|| ''; 

20210 RETURN 

20300 PR INT" a [i fl i !P!Mi!!MMi!: i H IH »IS WIH»»» » » » in »i P P » P ».«i MlliJi >111.1" ? 

20310 RETURN 

60000 SA’,''E " 0 : ZW I SCHIEN " ^ S 
60010 OPENl.8,15 
60020 INPUT# 1 HCD 
60030 PRINTH,;B*;C ;D 
60040 CLOSEI 
60050 END 


Programmbeschreibung 


Aufteilung des Programmes ZWISCHEN: 

1000 - 1190 Vorspann und Besetzen der Variablen 
2000 - 2610 Karten bestimmen und verteilen sowie 
Spielzug durchführen 
3000 - 3070 Pott neu auffüllen 

4000 - 4100 Karten innerhalb eines jeden Spielers 

sortieren 

5000 - 5150 Rangliste der Spieler erstellen 


Unterprogramme zur Kartenausgabe 

10000 - 10940 Karte ausgeben 
11000 - 11030 verdeckte Karte ausgeben 
15000 - 15320 Zeilen mit unterschiedlichen Einträgen 
von Kartensymbolen ausgeben 
20000 - 20310 Karten positionieren 
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Vorspann und Variablen besetzen 

Im Vorspann werden zunächst auch wieder Bildschirmhinter¬ 
grundfarbe und Rahmenfarbe gesetzt und dann die Anzahl der 
Mitspieler erfragt. Dann werden für das Kapital der Spie¬ 
ler zwei Matrizen KA() und KH() als Hilfsmatrix definiert. 
In den Zeilen 1080 bis 1120 befindet sich die Dimensionie¬ 
rung der Matrix MA$() für die Namen der Mitspieler und an¬ 
schließend sofort das Erfassen, sowie das Setzen des Kapi¬ 
tals für jeden Spieler auf 99 Einheiten (plus eine Einheit 
im Pott ergibt zusammen 100). In Zeile 1130 wird der Pott 
besetzt, wobei für jeden Mitspieler eine Einheit hinein¬ 
kommt. 

Der Rest des Vorspannes befaßt sich mit den Karten. Da für 
jeden Spieler bei ZWISCHEN jeweils drei Karten vorgesehen 
sind wird das Feld auch entsprechend groß (Zeile 1140) de¬ 
finiert. Die letzten fünf Zeilen lesen die Zeichen zur 
Kartenbeschriftung ein und speichern, diese entsprechend 
ab. 


Karten verteilen 

Nach der Bildschirmmeldung 'DIE KARTEN WERDEN GEMISCHT', 
werden für jeden Spieler drei Karten per Zufall aus einem 
normalen 52-Blatt-Spiel herausgezogen. Dabei ist für kei¬ 
nen der Mitspieler - und auch nicht unter verschiedenen 
Mitspielern - eine doppelte Karte möglich. In Zeile 2050 
wird, die Kartenhöhe bestimmt und in Zeile 2060 die Kar¬ 
tenfarbe. In der Schleife in den Zeilen 2070 bis 2090 wird 
für alle bisherigen Karten überprüft, ob die Verbindung 
Kartenhöhe/Kartenfarbe schon einmal vorhanden war. Wenn 
ja, wird ab Zeile 2050 eine neue Karte bestimmt. 

In dem Unterprogramm ab Zeile 4000 werden die Karten dann 
innerhalb der drei Karten eines Spielers sortiert (siehe 
unten). Um die Karten in ihren Originalfarben darstellen 
zu können, wird anschließend der Bildschirmhintergrund und 
der Rahmen auf die Farbe weiß geschaltet. In Zeile 2140 
ist der Beginn der Schleife, die für alle Spieler durch¬ 
laufen wird (eine Spielrunde). 

Zunächst werden die drei Karten ausgegeben, davon die 
mittlere verdeckt. Dann wird der Spieler nach seinem Ein¬ 
satz gefragt und die mittlere Karte aufgedeckt. Ab Zeile 
2370 schließt sich die Auswertung an, wobei um eine kür¬ 
zere Zeile 2390 zu erreichen (andernfalls wäre wieder eine 
komplizierte Programmierung erforderlich) die Hilfsvariab¬ 
le Hl noch mit der Nummer der ersten Karte des Spielers im 
Feld KA(,) besetzt wird. In Zeile 2390 wird dann vergli- 
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Chen, ob die Karte höhenmäßig auch ZWISCHEN liegt, wobei 
die Kartenfarbe dafür nicht entscheidend ist. Wenn ja, 
wird das Programmstück zur Ausgabe einer Verlustmeldung 
übersprungen. In beiden Fällen wird jeweils^ das Kapital 
entsprechend erhöht/verringert und der Pott verringert/ 
erhöht, und eine Bi Idsciü rinme Idung ausgegeben. In Zeile 
2530 wird noch abgefragt, ob im Pott das Minimum vorhanden 
ist; wenn nicht, wird das Unterprogramm zum Auffüllen auf¬ 
gerufen. Zeile 2540 enthält das Schleifenende zur FOR... 
NEXT-Schleife, die in Zeile 2140 beginnt; d.h. an dieser 
Stelle ist eine Spielrunde zu Ende, und eine Rangliste 
wird ausgegeben, und es wird abgefragt, ob noch eine neue 
Runde gespielt werden soll. 


Pott neu auffüllen 

In diesem kurzen Programmstück wird jedem Spieler eine 
Einheit abgezogen und diese (allgemein in Zeile 3030) dem 
Pott gutgeschrieben. 


Karten je Spieler sortieren 

Dieses Porogramm ist kein eigentliches Sortierprogramm, da 
nur die erste und dritte Karte, d.h. die Karten, die zu 
Anfang aufgedeckt werden, je Spieler eventuell vertauscht 
werden, so daß auf jeden Fall der kleinere Wert auf der 
linken Seite des Bildschirms erscheint. Die Zeilen 4070 
bis 4090 führen diese Vertauschung unter Zulii 1 fenahine der 
Variablen Hl durch. Auf keinen Fall dürfen alle drei Kar¬ 
ten sortiert werden, da sonst im größten Teil der Fälle 
natürlich dem Spieler ein Erfolgserlebnis beschieden ist. 


Rangliste 

Das Sortieren der Rangliste erfolgt mittels des Feldes 
i<H(), dem die Werte des Feldes KP() in den Zeilen 5030 bis 
5050 zugewiesen werden. Der Rest des IJnterprogrammes ent¬ 
hält das schon hinlänglich bekannte Programmstück zur 
fortgesetzten Maximumsuche und der Ausgabe des jeweiligen 
Maximums. 


Karten ausgeben 

Das Unterprogramm zur Ausgabe der Karten ab Zeile 10000 
enthält das zeilenweise Ausgeben der Karten, wobei durch 
die kurzen Unterprogramme ab Z(Mle 15000 jeweils noch die 
verschiedenen Kartenwerte entsprechend oft in die Karten 
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eingebaut werden. Eine nähere Beschreibung befindet sich 
in 'Das Commodore 64 Buch, Band 1'. 

Karten positionieren 

Das Positionieren der Karten geschieht in Bildschirm¬ 
ausgaben, die lediglich Cursorsteuerzeichen enthalten. 


Änderungen und Ergänzungen 

Gerade die zuletzt beschriebenen Unterprogramme ab Zeile 
20000 kann man auch anders gestalten. Das Programm ZWI¬ 
SCHEN ist wie die meisten anderen Programme in diesem Buch 
auch für Anfänger relativ einfach gehalten. Die Zeichen¬ 
reihen in den Zeilen 20100, 20200 und 20300 können auch 
Variablen zugeordnet werden (z.B. Pl$, P2$ und P3$) und 
statt eines Aufrufes des entsprechenden Unterprogramms 
kann eine der Variablen zum Positionieren des Cursors 
herangezogen werden, mit 'PRINT PlS'. 

Desgleichen kann man die Anzeige 'ZWISCHEN' noch etwas ef¬ 
fektvoller gestalten. Profis auf dem Commodore 64 können 
ja auch noch etwas Musik einbauen. 

Eine Änderung der spielerichen Gestaltung vom Ablauf her 
wäre es, wenn man bei zwei gleichen äußeren Karten (z.B. 
Herz-Bube und Karo-Bube) auch einen Gewinn zuläßt, wenn 
eine dritte gleiche Karte erscheint (z.B. Kreuz-Bube). Die 
Abfrage in Zeile 2390 ist dann entsprechend umzugestalten 
(GOTO-Befeh 1). Die neue Abfrage könnte in 2395 eingefügt 
werden und in Kurzfassung wie folgt aussehen: 

IF A=B AND B=C THEN... . 


ZWISCHEN 


1000 - 20310 

Variablen: 

Name 

Typ 

Bereich 

! Bedeutung 

A 

H 

1. . .13 

! Wert Kartenhöhe 

A$ 

H 

1 Zeichen (3,N) 

! von Tastatur 

EI 

G 

Ganzzah1ig 

! Einsatz 
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F$ 

! 

H 

! ’Schwarz',’Rot' 

Kartenfarbe 


Hl 

! 

H 

! (I-l)*3 

Kartennummer eines 



! 


! 

Spielers 


H2 

! 

H 

! 1. . .3 

Kartennummer eines 



! 


! 

Spielers 


H3 

! 

H 

! (I-1)*3+H2 

Kartennummer eines 

! 


! 


! 

Spielers 

! 

I 

! 

H 

! 1...MI / 1...3*MI 

Laufvariable 


3 

! 

H 

! I-l...1 (rückw.) 

Laufvariable 


K 

! 

H 

! 1...1500 

Laufvariable Wartesch. 



! 


! 1...300 

Anzeige 'ZWISCHEN' 



! 


! 1. . .MI 

Sortieren Kapital 


K$ 

! 

H 

! 'Kreuz','Pik', . . . 

Kartenart 


MA 

! 

H 

! Ganzzahlig 

aktuelles Maximum beim 

! 


! 


1 

Sortieren 

! 

PO 

! 

G 

! Ganzzahlig 

Pott 


! Felder (Arrays): 


ame ! Dirnen. ! Typ ! Bereich 


! Bedeutung 


AR$() ! 1...13 ! 
KA(,)! 1...3MI! 

! / l ...2 ! 

KP() ! 1...MI ! 

! ! ! 

! KH() ! 1...MI ! 

! ! 1 

! NA$()! 1...MI ! 


A, 2,3,...,D,K ! Kartenart 
1...13 / 1...4 ! Karten aller 
! Spieler 

Ganzzahlig ! Kapital der 

! Spieler 

Ganzzahlig ! KP() zwischen- 

! speichern 

Zeichenreihen ! Namen d. Spieler 


Unterprogrammaufrufe : 


nach ! Zweck 


2110 

2190 

2200 

2220 

2230 

2260 

2270 

2340 

2350 

2530 

2550 


4000 ! Karten sortieren 
20100 ! erste Karte positionieren 
10000 ! erste Karte ausgeben 
20200 ! verdeckte Karte positionieren 
10000 ! verdeckte Karte ausgeben 
20300 ! dritte Karte positionieren 
10000 ! dritte Karte ausgeben 

20200 ! verdeckte Karte zum aufdecken position. 
10000 ! verdeckte Karte aufdecken 
3000 ! Pott auffüllen 

5000 ! Rangliste errechnen und ausgeben 
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2600 ! 5000 ! Rangliste errechnen und ausgeben 

Verzweigungen nach außen : 


! i n Ze 

nach 

! Bedingung 

! Bemerkung 

! 2610 

END 

! normales Ende 

! 


3.2 BLACK OACK 


BLACK OACK ist wohl neben Roulette das bekannteste Glücks¬ 
spiel aus Spielbanken. Das folgende Programm entspricht 
wohl im Stil der Spielweise der meisten Black-Oack-Spie- 
1er. Ein Splitting ist in dem Programm nicht vorgesehen, 
kann aber als Ergänzung von einem geübten Programmierer 
sicherlich noch eingebaut werden. 


Spielanleitung 


Nachdem Sie das Programm geladen und gestartet haben, 
erscheint die Bildschirmmeldung 

'ICH MISCHE'. 

Dann zeigt der Rechner das vorhandene Kapital (zu Beginn 
5000 Einheiten) an und erfragt den Einsatz für das nächste 
Spiel. Geben Sie bitte eine beliebige Zahl ein und drücken 
Sie die RETURN-Taste. 

Wie beim normalen Black Oack werden jetzt vier Karten ver¬ 
teilt, je zwei für den Spieler und die Bank. Von den bei¬ 
den Karten für die Bank wird eine Karte verdeckt darge¬ 
stellt. Der Computer errechnet nun für den Spieler die 
Summe seiner Karten, wobei für das As sowohl die Werte 
eins als auch elf zugelassen sind. Dies wird bei der An¬ 
zeige berücksichtigt. Haben Sie z.B. ein As und eine Acht, 
so zeigt der Rechner an '9 / 19'. Haben Sie ein As und 
eine Zehnerkarte (Zehn, Bube, Dame oder König), so zeigt 
der Rechner an '11 / 21 Black Oack'. Der Black Oack ist 
natürlich von der Reihenfolge der beiden Karten unabhän¬ 
gig- 
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Nachdem die ersten Karten vom Computer angezeigt worden 
sind, kann der Spieler sich entscheiden: 

K - Neue Karte ziehen (Karte) 

D - Einsatz verdoppeln und noch genau 1 Karte ziehen 
(Doppeln) 

S - keine Karte mehr kaufen (Stop) 

Diese drei Entscheidunsmög1ichkeiten werden in einem 
einzeiligen Menü dargestellt, wobei zur Abkürzung die 
Begriffe KARTE (K), STOP (S) und DOPPELN (D) verwendet 
werden. Drücken Sie bitte dann eine dieser drei Buch¬ 
stabentasten entsprechend Ihren Wünschen. 

Haben Sie ein ’K' eingegeben, so zieht der Rechner eine 
Karte und gibt Ihnen das Zwischenergebnis mit der Meldung 
'SUMME KARTEN: (Zahl)' an. Dann erscheint wieder das 
Menü. 

Geben Sie ein 'S' ein, so bricht der Rechner das Karten¬ 
ziehen ab und gibt die Karten für die Bank aus. Wie beim 
üblichen Black Dack auch, ist der Computer so program¬ 
miert, daß die Bank bei weniger als 17 Punkten noch eine 
Karte ziehen muß (wobei das As jeweils entsprechend be¬ 
rücksichtigt wird) und ab 17 Punkte keine Karte mehr ge¬ 
zogen werden darf. D.h. die Bank unterliegt nicht dem Ent¬ 
scheidungsnotstand wie Sie, ob noch eine Karte gezogen 
werden soll oder nicht, da die Ziehungsregeln für die Bank 
festliegen. 

Haben Sie ein 'D' eingegeben, so zieht der Rechner für Sie 
noch eine Karte, verdoppelt Ihren Einsatz und geht dann 
zur Ausgabe der von der Bank gespielten Karten über, wie 
es beim STOP-Modus beschrieben ist. 

Wurden vom Rechner die Karten der Bank auch aufgedeckt (2. 
Karte) bzw. nachgezogen, so gibt er anschließend das Er¬ 
gebnis bekannt. Die Bekanntgabe des Ergebnisses besteht 
darin, daß der Rechner zunächst seine eigene Punktzahl und 
dann Ihre Punktzahl bekanntgibt. Diese beiden Punktzahlen 
werden miteinander verglichen und der Rechner stellt fest, 
wer gewonnen hat, bzw. ob ein Gleichstand (Stand-by) vor¬ 
liegt. 

Als Abschluß eines Spiels gibt der Rechner noch an, wie¬ 
viel Kapital Sie nun besitzen. Daraufhin können Sie ent¬ 
scheiden, ob Sie noch ein weiteres Spiel machen wollen 
('J' bei der Abfrage 'NOCH EIN SPIEL ?') oder die Sitzung 
beenden wollen. Wenn Sie ein neues Spiel machen, beginnt 
der Rechner wieder mit der Meldung 'ICH MISCHE'. Andern¬ 
falls wird in Abhängigkeit von Ihrem Kapital noch eine 
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kurze Meldung ausgegeben und das Spiel beendet. 

Programm-Listing 


10O0 

1010 REM*- ■ B L B C K - J fi C K * 

1020 REN************************************************ 
10130 POKE532808 
1040 P0KE532S1 , 1 
1015 0 K P=500101 
1060 DINKB':;5,,2:;’ 

1070 DI MKS':: 5..2::' 

10:30 DFlTflH2 3 ,■ 456.7 .. :3 .9 , Z ,■ BD ,■ K 
1090 DI NBR*':: 13.:' 

1100 F0RI=1T013 
1110 REBDBR*':: I ::' 

1120 HE:7T 

2000 REN************************************************ 

2010 REN* BEGINN SPIELRUNDE * 

2020 REN*************************:*********************** 

2030 PR INT'' rit!li;MeiMt!Mii.Mi!|] ICH NISCHE 

2040 :3:3=0 

2050 B:3==0i 

::j:060 flS=0 

2070 BE:=0 

2080 Zl<=0 

2090 B.J=:0 

2100 N1=0 

2110 REN- BUSWBHL DER KBRTEN BBNK UND SPIELER -- 

2120 FriRI = lTu5 

2130 KB < I... 1::' = I NT':: RND':: 15::' * 13::' +1 
2140 KB':: I,.2:) = INT'::RND'::3::'*4::' +1 
2150 FÜRJ=I-1TO1STEP-1 

2160 IFKB':: I 1 :i =KB':: .J.. 1::' BNDKB':: I ... 2::' =:KB':: ..T2::' THEN2130 
2170 NEXTJ 

218 0 ne:kti 

2190 F0RI.-1T05 

2200 KS':: I 1 ::' =: I NT':: RND':: 5::' * 13 ::■ +1 
2210 KS':: I2::' = I NT C RND ■:: 3::' *4::' +1 
2220 FOR.:r=: I -1 TO 1 STEP-1 

2230 IFKS':: I 1::' =KS':: ..J1::' BNDKS':: I .. 2::' ==KS':: .J... 2::' THEN2120 

2240 ne:ktj 

2250 F0R..T.-=1TQ5 

2260 I FKS':: I .. 1::' =KB':: .J1 ::' BNDKS':: I .. 2::' =:KB':: .J, 2::' THEN2120 
2270 NE:4T.J 
2280 NEI'-'ITI 

2290 REN- EIGENTLICHER SPIELBEGINN ----- 

2300 PRINT\'l5M?iiaaJ9 dein KBPITBL :".sKP 

2310 INPUTDEIN EIH:SBT:Z ";EI 
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2320 FRIHT"3 

3000 REN***Ht*******;+;Ht****************s|Hj|<*s^**^ti***HtHtH>;****H^* 
3010 RENit: RUSGRBE DER ERSTEN KRRTEH * 

3030 REM- BRNK 1 ., KRRTE OFFEN --------- 

3040 G 0 S U B 2 0100 
3050 K:R=KB':: 1,2::' 

3060 R=K:B‘:: 11 > 

3 0 ? 0 G.-O S U B11013 00 

30i30 REM- BRNK 2„KRRTE VERDECKT - 

3 Pi 9 £i C-i 0 S U B202£i 0 
31010 i3 0 S U B1 10 0 0 

3110 REM- SPIELER 1. KARTE ----- 

3120 C-i 0 S U B 21 10 0 
3130 KR=:KS<: 1 ,.2> 

3140 R=:KS':: 1 1 i 

315 0 G 0 S U B10 Pi Gl 0 

3160 REM-..SPIELER 2. KRRTE -------- 

3170 Gi;iSUB21200 
3130 KR=KS'::2.„2::' 

3190 R=KS';2.„ 1 i 
32C10 I30SUB100100 

3210 REM- 1. KARTE SPIELER flUSWERTEN -.—..—.. 

3220 IFKS < 1 1 > > 1 0THENSS=SS+10 : Gi;rn;i3260 
3230 I FKS < 1 1 1 THENRS=flS+10 

3240 SS=SS+KS':: 1 1 

3250 REM- 2.KRRTE SPIELER flUSWERTEN ----- 

3260 I FKS C 2 1 > > 1 0THENSS=::SS+1 0 : Gi;iTO3300 
3270 I FKS 2 1 > = 1 THEHflS==flS+1G 
3280 S S=S S+K S <: 21 

3290 REM--.- flUSGRBE SPIELSTAND —..-.—.... 

3300 PRIMT" iaigMilMtlMijWiilIgMiilIiiiMg^^^^^^ KARTEN r ";SSr 


3310 

IFAS 

=0THENPRINT 



3320 

IFRS 

CSGiTHENPR I NT 

Z ".jSS+AS.; 


3330 

IFKS 

1 .„ 1 ::' = lflNDI.S 

: 2 1 1 >9THENPR I NT " BLACK 

.JACK" ; :B..I 

3340 

IFKS 

< 2 1 j = 1ANDKS 

: 1 .„ 1 ::'>9THENPR INT "BLACK 

.JACK" j :BJ 


3350 PRINT 

3360 REM-.— MENLIE EUER SPIELER -----.—.-.-. 

3370 PR I NT " MtlMciMiilft a MiilMBM^^ RRTE STOP DGPF'EU-I 

3380 2K=7K-i-l h:!... S D > 

3390 iSETRT 

3400 IFRl:=" "THEN3390 
3410 I FAT="S"THEN4030 

3420 IFflT="D"THEHMl=:l :EI=EIit2 :GOTO3450 
3430 I FAT= " |< " THEN3450 
3440 Ü O T03300 

34.50 0WZKG0SIJB21 30021400... 2150Gi 

3460 REM- NEU KARTE ZIEHEN Ul ID ANZEIGEN -...-. 

3470 A=KSZK + 2... 1 > 

3480 Kfl=:KS ZK:+2 .„ 2 > 

34 9 0 G Ü S LI B1 00 0 0 
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3500 REM- NEU KRRTE fiUSWERTEH - 

3510 IFKS <: ZK+21 > 10THEHSS=SS+1 0 :00703550 
3520 I FKS C 2K+21 ::• = 1 THEHflS=RS+10 
3530 SS=SS+KS<;ZK+2,. 1 

3550 IFSS>21THEN5240 
3560 IFM1=1THEH4030 
3570 OOTO3300 

4000 REM***********************************************H< 
4010 REM* KRRTENVERTEILUHO BRHK * 

4020 REM************************************************ 
4030 IF SSCie RND RS THEN S=SS+RS 
4040 IFSS>16THEMS=SS 

4050 REM- BRHK 2. KRRTE OFFEN - 

4060 OOSUB202010 
4070 R=KB>::2.. 1 
4030 KR=KB 2,2.J 
4090 0O S U B101010 0 


4100 REM- BRHK BLRCKJRCK ? - 

4110 IFKB <: 11 ::• = 1RNDKB C 2 , 1 »9THEN52201 
4120 I FKB 21 ::• = 1 RNDKB C 11 >>9THEN5220 

4130 REM- BRNK RUSWERTEN DER ERSTEN BEIDEN KRRTEN — 


4140 I FKB <: 1 , 1 > > 10THENBS=BS+10 :00T04170 
4150 I FKB <: 11 > = 1 THENRB=RB+10 
4160 BS=BS+KB<: 11 

4170 I FKB 2.. 1 > 10iTHENBS=BS+10i: 00T04210 
4130 I FKB <: 21 = 1 THENRB=RB+10 
4190 BS=BS+KB>::2., 1 

4200 REM- ZIEL ERREICHT ? - 

4210 I FBS> 16THENB=BS : OOTO50801 
4220 IFBS+RB>16THENB=BS+RB:00705030 

4230 REM- BRNK 3. KRRTE - 

4240 OOSIJB20300 
4250 R=KB(:3,. 1 
4260 K R=K B '•! 3 ,• 2 
4270 O 0 S LI B10000 

4230 I FKB < 31 > 10THENBS=BS+10 :00704320 

4290 REM- 3.KRRTE RUSWERTEN - 

4300 I FKB <: 31= 1 THENRB=RB+10 
4310 BS=BS+KBC3^ 1 
4320 IFBS>21THEN4530 

4330 REM- ZIEL ERREICHT ? - 

4340 IFBS>16THENB=BS : OOTO50S0 
4350 IFBS+RB>16THENB=BS+RB:COTO50S0 

4360 REM- BRHK 3. KRRTE - 

4370 0O S LI B20400 
4330 R=KB'::4.. 1 :> 

4390 KR=KB C 4,2 > 

4400 00S U B10000 

4410 REM- 3.KRRTE RUSWERTEN - 

4420 I FKB 4 , 1 > > 10THEHBS=BS+10 : COTO4460 
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4430 IFKB 41 > = 1 THEf IRI3=RB+10 
4440 BS=BS+KB’::4,. 1 :> 

4450 REM-ZIEL ERREICHT ? - 

4460 IFBS>21THEN4530 

4470 IFBS>16THEHB:=BS :GOTO5080 

4 4 y 0 IF E! 8+R El 16 T H E H El=El 3 -h R E!: U U T U 5 0 1! 0 

4490 REM- BRNK 5. KRRTE - 

4500 G 0 S U B20500 
4510 R=KB'::5., 1 
4520 KR=KB<:5.,2;:' 

453ei GGSUB10000 

4540 REM- 5.KRRTE RUSWERTEN - 

4550 I FKB <: 51 > > 10THEHBS=BS+10 : GCiTO4580 
4560 I FKB 51 > = 1 THEHRE:=RB+10 
4570 BS=BS+KB'::5.. 1 > 

4580 REM- ZIEL ERREICHT ? - 

4590 G 0 T O5080 

5000 REM************************************************ 
5010 REM# RUSWERTUNG SPIELER BRHK * 

5020 REM**#*#****##***#*##**#**#**#**##******##****#*#*# 
5030 PR IHT" CH HRBE MEHR RLE: 21," ; 

5040 PRINT" UND VERLGREN. 

5050 KP=KP+EI 

5060 PR INT"DE IN KRPITRL BETRREGT NUN DM";KP 
5070 G O T05290 

5080 PR I HT" igigglBttlDgBKlBlggttPM^ ; 

5090 PRINT" 

5100 PRINT" 

5110 PRINT" 

5120 PRINT"□□□□□" 

5130 1FBJTHENPRINT"DU HRST EINEN BLRCK JRCK 
5140 PRINT"ICH HRBE ";B 

5150 IFB.JTHENPRINT"DU HRST 3:2 GEWONNEN" :KP=KP+3.-'2*EI 

5160 IFBJTHEN5290 

5170 PRINT"DU HRST ";S 

5180 IFB<STHENPRINT"CU HRST GEWONNEN ":KP=KP+EI 
5190 IFBCSTHENPRINT"ICH HRBE GEWONNEN ":KP=KP-EI 
5200 IFB=STHENPRINT"GLEICHSTRND / STRND BV” 

5210 G0T05290 

5220 IF BJ THEN PRINT"GLEICHSTRND";GOTO5290 
5230 PRINT"ICH HRBE EINE BLRCKJRCK":KP=KP-EI:GOTO5290 
5240 PR I NT" KRRTEN : ";SS; 

5250 PP I NT" I HRST MEHR RLS 

5260 F’RINT" UND DRMIT VERLOREN."; 21,"; 

5270 PRINT" 

5280 KP=KP-EI 

5290 PRINT"DEIN KRPITRL BETRREGT NUN DM";KP; 

5300 FORI = 1T05000 
5310 NEXT 

5330 GETR^ 
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5340 11-nf = " " THE:H533e 
5350 IF“ n$ = " J " THEH2030 
5360 I FFllnO ” H " THEN5320 

5370 FRIHT" :ii!OlMBMi!i>»ift»ll>i|iE :iEIH KRPITflL : ",rKP 

5380 IF^^;P>5000TF^E^■■IPRI^IT"E3RfllJCHST DU DIE RDRESSE VOM 

NPiECHSTEH CFISIMO 

5390 IF'I<P<5000TE1EEJPRINT"VIELLEICHT SOLLTEST DJ HO(::H_ETM E5ISS 
5400 IFh::P<0THENPRINT"FlH BESTEN FIBER HUR NIT NIR CHEN LIEBEN! 
5410 PR INT "HUF JEDEN FTeLL HETT ES NIR SPHSS DELIFlCHT 
5420 END 

10000 R E N HK iF * itc+HK * i'F 1+: i'F Hk * * H: Hi H Hk H Hk Hk Hi iiH H Hi Hi Hk Hi Hi Hk Hi Hk Hi Hi Hi H Hi Hi H( H Hi H H Hk Hi Hi Hk Hk Hk H i+i Hi 
10010 RENHi KFIRTEN HUSÜEBEN H 

1 (3020 R E N i+i H Hi Hi Hi Hi Hk Hk H H Hk Hi Hi Hi H H H H H H H H H H H H H H H H H H H H H Hi H H H H H H H H H H Hi H H Hk H H 
1004 0 FiFi: T = H R ■$ H 3 
10050 IFKR=lTHENF:iF:=:"5r' :!<:ili:="T" 

1 0060 I FF::R=:=2THENF:iL= " i " ; EkJ? =: " H' " 

10070 IFKR=::3THENF:i|r^=:"ii2" 

10080 I FE<R=4THENFT:= " sS" i: H " 

10100 REN HiHHHHKHKHKHHiHiHiHHHiHiHHKHHiHi 
10110 REN HiHHHiHi 1,, ZEILE HiHHiHH 
1012 ij R EN H Hi Hi H H Hk H H H Hk H H H Hk hF H H H H Hk 
10130 PR INT "Ml ßlüHllllliil''; 

10200 R E N H H H H H H H H H H H H H H H H H H H H 
10210 REM HiHHiHiH 2, ZEILE HHHHH 
1E3220 REN HiHHHKHHHHHHHHiHHiHHi'lKHiHiH 
10230 PRINT"! "FTJRRT;" ";RR:T;"B ßlHiiiiim" ; 

10300 REN HHHKHHHKHHKHHHHiHHHiHHHiHHi 
10310 REM HHHHHk 3., ZEILE HHHHiH 
10320 R E N Hi H H H H H H H H H H H Hi Hi H H H H H H 
10330 I FR=3THEHGCiSUB 15100 ; GOTO 1036@ 

10340 IF Fl > 5 T l-l E N 0 0 S U E152013 : G O T iJ 10360 
1035i 0 G 0 S U B15 Fi Fi 0 
10360 PR I NT " iBJilSSIIIIIlir' ; 

10400 REM HKHHHiHHHHKHHHHKHiHiHKHHiHKHiH 

10410 REN HHHHKHi 4,. ZEILE HHHHH 

10420 REN HHHHHHHHiHHHHHHHHHHHHi 

10430 IFR=2THENG0SUB151OO:GOTO 10460 

10440 I FR=:40RR=::50RR>7THENG0SUB 1 5200 : GOTO 10460 

1 Gl4 501 G 0 S U B15 O Gi O 

10460 PRINT":tiIlliHIlBBl" l 

10500 REN HHiHHHiHHHHHHHHHHHHHiHH 

10510 REN HHHHH 5„ZEILE HHHHH 

10520 REN HHHHHHHHHHHHHHHHHHHH 

10530 IFR=10RR=30RR=50RR“9THENG0SUB151 OÜ :GOTO10570 
10540 I FR=:7THEN00SUB 1 5300 : GOTO 1057G 
10550 I FR=60RR>9THENG0SUI:::; 1520G:i : (lO 1010570 
101560 G 0 S U B15000 
10570 PR I NT " ; 

10600 REN HHKHHHHHHHHHHHHHHHHHH 
1 Gl 6101 r? E N H H H H H 6. Z'E IL E H H H H H 
1062:0 F: ET'I H H H H H H H i+i H H H i+i H H H H H Hi H i+i 
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10 6 0 0 IF Fl=0 r H E H G 0 o U B151 0 Fi : G iJ T G1 0 fc. G 0 
10640 I Ffl=40Rfl=50RR:>7T HENG0SLlB 15200 ; GOT! J ;|. 0660 
10650 G 0 S U B15000 
10660 PR I NT " PJiHlliWiil" ; 

10700 REN 

10710 REN 4 : 1 + 1 * 7„ZEILE :+**:+;+ 

10720 REN ******;+:**:+***;+:*:+;;+*;+:* 

107:30 I F R=3T HENGCiSl.JE 15100 ;;GOTO 10 760 
10740 I FH>5THENG0SIJB 15200 ;; GOTO 10760 
10750 G 0 S U B 15000 
10760 PRIHT"SIiBlilllliil" ; 

10800 REN +::+:+4:*:+:**:*:+4:+::+:+::+:*i+::+!:+::+: 

10 s10 REN ***** 3.ZEILE ***** 

10320 R E N * * * * * * * * *:+: * * * * * **:**: * 

108:30 PRINT"! "FT.;RR:T,:" " rfiR:! ; "SI laHilBüiilllll" ; 

10900 REN ******************** 

10910 REN ***** 9., ZEILE ***** 

10920 REN ******************** 

10930 FF: IHT " ' 

10940 RETURN 

1 100 0 F 0 R L K = 1 T 0:9 

11010 PR ]: HT"; 

11020 ne:kt 

11030 RETURN 

:L 5000 R E N ***** *****:+:*****:+ * * * * * :* +► * * * * * * * * * * * :* * * ********* * * * * * 
15010 REN* ZEILEN NIT UNTERSCHIEDLICHER ZAHL VON EINTRREGEN * 


15020 R ET'1 * * * * * * :* * * * :* :* * * * * * :* * * * :* :*:+: * * :* * * :* :*:* :* :*:+: :* ***** :* *:+: * :* * *:+: :*:+: 


15030 

REN***** 


KEIN EINTRAG ***** 

15 0140 

PR INT "III 

1 


15050 

RETURN 



15100 

REN***** 


EIN EINTRAG ***** 

1511 0 

PR INT "Bl " 

.N-T ; " 

",;KT"" ";"i 1"; 

1512:0 

RETURN 



15200 

REN***** 


ZNEI EIHTRAEGE ***** 

15210 

PRINT"ffl| " 

rFT; " 

";KT;" I"; 

15220 

RETURN 



15:3001 

REN***** 


DREI EIHTRAEGE ***** 

15310 

PR INT "11 " 

.;FT; " 

KT;KT;!<*;" ";"M I"; 

15:320 

RETURN 



199S9 

END 




20000 REN**************************************************** 
20010 REN* KARTE ROSS ITIGNI EREN / BANK * 


20020 REN**************************************************** 
20100 PRINT"a"; 

20110 RETURN 

20200 PR I NT " islJtÜUMMiJtiJ" ; 

20210 re:tuf?m 

20300 PRINT''aM!!.felMMlftÄft*JIIÜIJta" ; 

20310 RETURN 

20400 F'R I NT" ; 

204 RETURN 
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205i;;it;i 1-0 [ nT'' iS» Bll all»i>i»iiii i»pp |g lallp» itiB»»11 8 >i if!.itiiii.ii!!.ii.imi»JMi!J''; 

205:1.0 RETURN 

210 01 (3 R Ei: f' l Ü': JE iat Jl'i jE JE Jl*: JE JE JEJE Jf: E'i JE :E JE J|': JE JE JE JE JE Jl': JE: JE JE JE Hj JIj » Hj JE JE JE: JE :E # JE JE :E »JE JE 
2:1.010 REITE KFIRTE POS:tT1 OH:tEREN / SPIELER * 

2 :l 020 R: E M :E i'E JE :E :'E iE: il: JE :'E :'E Jl': iE: '■¥■ Jf: :'E JE :E Jl' JE JE E JE JE:'E JE JE JE '¥ :E :E JE J)' JE:E JEJE: H' JE JE:E JE :E JE:»JE :f » 
2:1100 f■'RIMT''' '' .r 

21110 RETURN 

212 010 I- PI! IT'' a ii! !Mii! l i)!:i: H ! M i:!WMeiai» WWBi MniBU'' 

21210 RETURN 

1.3001 l■■■'R I NT .? 

21310 RETURN 

21 400 r'R I NT '' aii M iiliWIMIi t lM li'lE.lüiWBiiMJIIj » IBi»1» i »B.M!.IM.»,i!lS''.: 

21410 RETURN 

2:1500 f-R I NT" isi:ifii:!Mi!i:i:i‘!ii!!:a'! ft : i : e ! i t!.» P iE 1» » pi » I E i m n 1» l Ei1»»PinppIE»ftP.M!imdMau&ii''.? 
21516 RETURN 

60000 S 0 V E " 0 BI... R C K JTl C l< " ... fü 


Programmbeschreibung 


Das Programm Black Jack wurde von uns wie folgt unter¬ 
teilt: 

1000 - 1120 Vorspann und Besetzen der Variablen 
2000 - 2320 Beginn der Spielrunde mit Auswahl der 
Karten 

3000 - 3570 Ausgabe der ersten Karten und Spielzug 
des Spielers 

4000 - 4590 Spielzug der Bank 

5000 - 5420 Auswertung des Spielergebnisses 


Vorspann 

Zunächst werden auch in diesem Spiel Bildschirm- und Hin¬ 
tergrundfarbe gesetzt. Dann wird das Startkapital (5000 
Einheiten) in der Variablen KP festgehalten, und es werden 
zwei Felder definiert, in denen die fünf Karten sowohl für 
die Bank als auch für den Spieler gespeichert werden 
(KB(,) und KS(,)). Wegen des Aufbaus der Karten können nur 
fünf Karten nebeneinander am Bildschirm dargestellt wer¬ 
den. Es wäre aber zu überlegen, die Positionierung der 
einzelnen Karten anders zu legen, so daß die Karten sich 
überlappen. Dies ist kein Nachteil in der Übersichtlich¬ 
keit, da die Karten vollkommen symmetrisch sind. 

In den Zeilen 1080 bis 1120 werden nur die Kartenhöhen 
definiert und eingelesen. 






BLACK 3ACK 


119 


Beginn der Spielrunde 

Zunächst werden alle Variablen, die schon eventuell in 
einem früheren Spiel verwendet wurden, zurückgesetzt (Zei¬ 
len 2040 bis 2110). Dann werden die Karten für die Bank 
per Zufall ausgewählt (Schleife von Zeile 2120 bis Zeile 
2180), wobei in der Schleife von Zeile 2150 bis 2170 noch 
überprüft wird, ob die gerade gezogene Karte bereits vor¬ 
handen war. Oben genannte Zeilen enthalten die Auswahl der 
Karten für die Bank; ähnliches geschieht in den Zeilen 
2190 bis 2280 für die Karten des Spielers, wobei jedoch in 
den Zeilen 2250 bis 2270 noch überprüft wird, ob die beim 
Spieler gezogene Karte bereits bei der Bank vorkommt. Wird 
in diesen Vergleichsoperationen eine Karte festgestellt, 
die bereits vergeben wurde, so wird durch ein Sprung auf 
die Zeile 2130 bzw. 2200 eine neue Karte per Zufall ausge- 
wäh1t. 

In den Zeilen 2300 bis 2310 wird das Kapital angezeigt und 
der Einsatz erfragt. 


Ausgabe der ersten vier Karten 

Zunächst wird durch Aufruf des Kartenpositionierens für 
die erste Karte der Bank die Ausgabe der beiden Bankkarten 
eingeleitet. Dann werden die Hilfsvariablen KA und A mit 
Kartenhöhe und Kartenfarbe besetzt und das Unterprogramm 
zur Ausgabe der eigentlichen Karte aufgerufen. Bei der 
verdeckten Karte (2. Karte der Bank) braucht nur eine Po¬ 
sitionierung durchgeführt zu werden und ein Raster aus 
'karierten' Grafikelementen. Die Kartenhöhe ist z.Zt. noch 
uninteressant. Analog zur Ausgabe der ersten Karte der 
Bank werden die ersten beiden Karten des Spielers ausgege¬ 
ben. 

In den Zeilen 3210 bis 3280 werden die ersten beiden Kar¬ 
ten des Spielers ausgewertet. Die Kartenauswertung könnte 
auch in einem Unterprogramm realisiert werden. Dies ist 
eine gute Übung für den Basic-Neuling. In dem Programm¬ 
stück zum Auswerten der Karten, wird zunächst abgefragt, 
ob der Kartenwert größer als 10 ist. In diesem Fall wird 
auf die Summe der Karten (SS für den Spieler und BS für 
die Bank) eine 10 aufaddiert und das Programmstück zum 
Auswerten verlassen. In der nächsten Zeile wird jeweils 
abgefragt, ob die Karte ein As ist. In diesem Fall wird 
die Hilfsvariable zum Zählen der Asse (AS für den Spieler 
und AB für die Bank) um zehn Einheiten erhöht. Wird die 
jeweils dritte Zeile erreicht, so liegt eine normale Karte 
vor, deren Wert zu der Summe hinzugezählt wird. 
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Ausgabe Spielstand 

Zunächst wird die Summe der Karten ausgeijeben, wobei zu 
bemerken ist, daß diese Ausgabe mit einem Semikolon abge¬ 
schlossen wird. Aus diesem Grunde muß - um eine Ausgabe in 
der nächsten Zeile zu erreichen - unabhängig vom Wert der 
Variablen AS ein PRINT-Befehl erfolgen. Dies wird auch in 
Zeile 3310 realisiert. Ist der Zähler für die Anzahl der 
Asse verschieden von Null, so wird ein Schrägstrich ausge¬ 
geben und die um die Punktzahl des As-Zählers erhöhte Ge- 
samtpunktzah1. 

Liegt ein As vor, so kann auch noch ein Black Oack vor¬ 
liegen. Ein Black Oack ist dann erreicht, wenn eine Karte 
ein As und die andere Karte eine Zehnerkarte ist. Die bei¬ 
den Gruppierungsmöglichkeiten werden in den Zeilen 3330 
und 3340 abgeprüft. In beiden Fällen wird der Merker für 
ein Black Dack des Spielers (BO) auf '1' gesetzt. 


Menü des Spielers 

Zunächst wird das einzeilige Menü für den Spieler ausgege¬ 
ben und dann ein Zähler für die Zusatzkarten (ZK) um eins 
erhöht. Die Zeilen 3390 bis 3440 beinhalten den Verteiler 
aufgrund der Eingabe im Menü. 

Entscheidet sich der Spieler für 'K', so wird in Abhängig¬ 
keit von der Nummer der Zusatzkarte ein Positionierungsbe¬ 
fehl in den Unterprogrammen ab Zeile 21000 aufgerufen. 
Dann werden die der Zusatzkarte entsprechenden Kartenhöhe 
und Kartenfarbe an die Parameter für das Unterprogramm zur 
Ausgabe der Karte übergeben und dieses Unterprogramm auf¬ 
gerufen. Zum Abschluß wird noch die neugezogene Karte aus¬ 
gewertet und die neue Summe ausgegeben. Nach der dritten 
Karte kann natürlich schon die Höchstpunktzahl von 21 
Punkten überschritten sein. Dies wird in Zeile 3550 über¬ 
prüft. 

Eine Zusatzkarte kann auch nach dem Menüpunkt 'D' ausgege¬ 
ben werden. Wurde jedoch verdoppelt, so ist nach interna¬ 
tionalen Spielregeln nur noch eine Karte auszugeben und 
das Spiel dann auszuwerten. Dies wird durch den Merker Ml 
festgehalten. In diesem Falle wird auf das Programmstück 
zur Kartenverteilung für die Bank gesprungen, genauso wie 
nach Eingabe eines 'S' im Spielermenü. 
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Kartenverteilung der Bank 

Zunächst wird in diesem Programmstück der Variablen S der 
Wert zugeordnet, der zum späteren Vergleich mit der Bank 
herangezogen wird (entsprechende Verrechnung des Zählers 
für die Asse). 

In den Zeilen 4060 bis 4090 wird die verdeckte Karte der 
Bank offen ausgegeben. Dann wird - analog zum Spieler - in 
den Zeilen 4110 und 4120 geprüft, ob bei der Bank ein 
Black Oack vorliegt. Die Zeilen 4140 bis 4190 beinhalten 
das Auswerten der beiden ersten Karten der Bank. 

In Zeile 4210 wird geprüft, ob die Bank bereits ihr Limit 
erreicht hat. In diesem Fall wird zur Auswertung des 
Spielergebnisses übergegangen. In Zeile 4220 wird noch der 
Wert für ein gegebenenfalls vorhandenes As berücksichtigt. 

Muß die Bank noch eine Karte nachziehen, so geschieht die 
Ansteuerung der Ausgabe am Bildschirm in den Zeilen 4240 
bis 4270 (der Wert der Karte wurde ja bereits im Vorspann 
festgelegt). Auch diese Karte wird nun wieder ausgewertet 
und geprüft, ob das Ziel erreicht ist. Der analoge Vorgang 
vollzieht sich auch für die vierte und fünfte Karte. 

Da beim Spieler schon die Programmierweise über eine Zu¬ 
satzkarte aufgezeigt wurde, dürfte es nun auch für den 
Anfänger sehr leicht sein, dieses Programmstück so umzu¬ 
bauen, daß sowohl die Ausgabe der Karte als auch das Aus¬ 
werten sowie die Überprüfung, ob das Minimum der Bank (17) 
erreicht ist, in einem Programmstück für alle Karten zu¬ 
sammengefaßt werden. 


Auswertung des Spieles 

Dieses Programmstück hat mehrere Einsprünge, die in Abhän¬ 
gigkeit von dem Ergebnis im bisherigen Programm ausgewählt 
werden. 

Der erste Teil befaßt sich mit dem Fall, daß die Bank sich 
'verkauft' hat. In diesem Falle wird eine entsprechende 
Bildschirmmeldung ausgegeben und das Kapital des Spielers 
um den Einsatz erhöht und angezeigt, sowie zu einer Warte¬ 
schleife gesprungen, die dem weiteren Programablauf voran¬ 
gestellt ist. 
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In Zeile 5130 beginnt die Behandlung des Falles, daß der 
Spieler einen Black Oack hat. Aber an dieser Stelle wird 
nicht nur der Fall des Black Oacks beim Spieler behandelt, 
sondern unerheblich von diesem Merker (BO) wird die Punkt¬ 
zahl der Bank in Zeile 5140 angezeigt. Liegt jedoch ein 
Black Oack vor, so wird das Kapital des Spielers im Ver¬ 
hältnis 3:2 erhöht und wieder auf die Warteschleife ge¬ 
sprungen. Andernfalls wird die Punktzahl des Spielers aus¬ 
gegeben und in Abhängigkeit des Vergleichs der beiden 
Punktzahlen (Bank/Spieler) wird festgestellt, wer gewonnen 
hat und das Kapital des Spielers entsprechend erhöht oder 
vei'ringert. In jedem Falle wird aber wieder auf die Warte- 
scIiJulTe j'.’siDrungen. 

Die Zeile 5220 wird angesprungen, wenn die Bank einen 
Black Oack hat. In diesem Falle wird der Spieler nur vor 
Verlust seines Kapitals gerettet, wenn er auch einen Black 
Oack hat. An dieser Stelle sei vielleicht angemerkt, daß 
sich die Abfrage 'IF BO = 1' erübrigt, da die Abfrage IF 
in Verbindung mit einem Zahlwert immer ein Ergebnis posi¬ 
tiv ist, wenn die Zahl nicht 0 ist. 

Hat der Spieler kein Black Oack, so wird in Zeile 5230 
sein Kapital entsprechend nach einer Bildschirmmeldung des 
Computers vermindert. 

Die Zeile 5240 wird angesprungen, wenn der Spieler sich 
'verkauft' hat. In diesem Fall wird auch eine entsprechen¬ 
de Meldung ausgegeben und das Kapital des Spielers verrin¬ 
gert und automatisch in die Warteschleife übergegangen, 
auf die auch von den anderen Stellen gesprungen wurde. 

Dieser Warteschleife folgt nun die Abfrage, ob noch ein 
Spiel gewünscht wird, sowie der entsprechende Verteiler. 

Die Zeile 5380 wird erreicht, wenn das Spiel beendet wer¬ 
den soll. In Abhängigkeit vom Kapital (größer als das 
Startkapital, kleiner als das Startkapital, kleiner als 0) 
wird eine entsprechende Meldung ausgegeben. 


Änderungen und Ergänzungen 


Wie schon während der Programmbeschreibung mehrfach ange¬ 
deutet, sind auch beim Black Oack einige Änderungen mög¬ 
lich. Zunächst sei hier nochmal die überlappende Ausgabe 
der Karten erwähnt, die es auch zuläßt, daß mehr als fünf 
Karten ausgegeben werden, obwohl in keinem Testfall mehr 
als fünf Karten zur Erreichung der benötigten Punktgrenze 
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gebraucht wurden. 

Ebenso erwähnt wurde schon das Zusamtnenfassen der Behand¬ 
lung der 3. bis 5. Karte der Bank in einem einzigen Pro¬ 
grammstück. 

Im Vorspann zu diesem Kapitel wurde bereits erwähnt, daß 
das Programm kein Splitting durchführen kann. Diese Pro¬ 
grammierung erfordert aber schon etwas mehr Können, da der 
Spieler ja anschließend mit doppeltem Einsatz und doppel¬ 
ten Karten spielt. Hier noch eine kurze Begriffserläuter¬ 
ung des Splittings: Wenn die ersten beiden Karten des 
Spielers die gleiche Kartenhöhe aufweisen (z.B. zwei Vie¬ 
rer) so kann der Spieler seinen Einsatz verdoppeln und mit 
beiden Karten (d.h. mit je einer 4) ein eigenes Spiel be¬ 
ginnen. 

Eine weitere Besonderheit des Black 3ack Spiels wurde auch 
nicht eingebaut, ist aber etwas einfacher zu realisieren 
als das Splitting: Insurance/Versicherung. Diese Versi¬ 
cherung ist auch ein zusätzlicher Spieleinsatz. Hat die 
Bank mit ihrer ersten (offenen) Karte ein As, so kann der 
Spieler sich gegen einen Black Sack der Bank versichern. 
Hierzu sind erneut Geldeinheiten (im Spielcasino auf eine 
besondere Linie) zu setzen. Im Falle eines Black Sacks der 
Bank erhält der Spieler sein Gewinn 2:1 ausgezahlt. 

Wir empfehlen auch dem ungeübten Programmierer diese letz¬ 
te Änderung. Er braucht nur das Menü um eine zusätzliche 
Variante ('I' oder 'V') ergänzt zu werden, die nur dann 
vom Rechner akzeptiert wird, wenn die Höhe der ersten Kar¬ 
te der Bank eine ist. 


BLACK SACK 1000 - 21510 


1-1 

! Variablen: ! 

1 _ . 1 

! Name 

! Typ 

! Bereich ! 

Bedeutung 

! A 

! P 

! 1... 13 ! 

Übergabe Kartenhöhe 


I 

! ! 

an Unterprogramm zur 


! 

j i 

Kartenausgabe 

! A$ 

! H 

! 1 Zeichen (S,D,K,! 

von Tastatur 
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AR$ 

H 

! 3/N) 

! A,2,...,D,K 

! 

! Kartenart In Unterpro. 

AB 

G 

! 10,20,... 

! Zusatzpunkte für Asse 

AS 

G 

! 

! 10,20,... 

! bei der Bank 
! Zusatzpunkte für Asse 

B 

G 

1 

! 1. . . 

! beim Spieler 
! Endgültige Punktzahl 

B3 

H 

! 

! 0,1 

! der Bank 

! Merker für Black Oack 

BS 

G 

! 

! 1. . . 

! beim Spieler 
! Summe der Karten der 

EI 

G 

! 

! Integer 
! 'Schwarz','Rot’ 

! Bank 

! Einsatz des Spielers 

F$ 

H 

! Kartenfarbe in Unter- 

I 

H 

! 

! 1... 13,1...5 

! Programm 
! Laufvariable 

3 

H 

! 1...3000 
! I-l,...,1 

! 

! Laufvariable 

K$ 

H 

! Kreuz,Pik,... 

! Kartenart in Unterpro. 

KA 

P 

! 1, ... ,4 

! Übergabe Kartenfarbe 

KP 

G 

! 

! 

! Integer 

! an Unterprogramm zur 
! Kartenausgabe 
! Kapital des Spielers 

Ml 

H 

! 0,1 

! Merker für Verdopplung 

S 

G 

! 1. . . 

! Endgültige Punktzahl 

SS 

G 

! 

! 1. . . 

! des Spielers 
! Summe der Karten des 

ZK 

H 

! 

! 1/2,3 

! Spielers 

! Zahl der Zusatzkarten 



! 

! beim Spieler 


Felder 

( Arrays) 

: 



Name ! 

Dirnen. ! 

Typ 

! Bereich 

! Bedeutung 

AR$()! 

1 

1. . .13 ! 

I 

G 

! A,2,3,4,5,6,7, 

! 8,9,10,B,D,K 

! Kartenhöhen 

1 

KB(,)! 

! 

1...5/ ! 

1. . .2 ! 

G 

! 1...13/1...4 
! 

! Karten der Bank 
! 

KS(,)! 

1...5/ ! 

G 

! 1...13/1...4 

! Karten Spieler 

1 

1 

1...2 ! 


! 
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Unterprogrammaufrufe : 

i n 

nach ! 

Zweck 


3040 

20100 

1. Karte 

Bank positionieren 

3070 

10000 

1. Karte 

Bank ausgeben 

3090 

20200 

2. Karte 

Bank positionieren 

3100 

10000 

2. Karte 

Bank (verdeckt) ausgeben 

3120 

21100 

1. Karte 

Spieler positionieren 

3150 

10000 

1. Karte 

Spieler ausgeben 

3170 

21200 

2. Karte 

Spieler positionieren 

3200 

10000 

2. Karte 

Spieler ausgeben 

3450 

21300 

3. Karte 

Spieler positionieren 


21400 

4. Karte 

Spieler positionieren 


21500 

5. Karte 

Spieler positionieren 

3490 

10000 

3.-5. Karte Spieler ausgeben 

4060 

20200 

2. Karte 

Bank positionieren 

4090 

10000 

2. Karte 

Bank (aufgedeckt) ausgeben 

4240 

20300 

3. Karte 

Bank positionieren 

4270 

10000 

3. Karte 

Bank ausgeben 

4370 

2 0400 

4. Karte 

Bank positionieren 

4400 

10000 

4. Karte 

Bank ausgeben 

4500 

20500 

5. Karte 

Bank positionieren 

4530 

10000 

5. Karte 

Bank ausgeben 

Verzweigungen nach außen 

: 

i n Ze 

nach 

Bedingung ! Bemerkung 

5420 

END 

normales 

Ende ! 
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4. Glücksspiele 

Wenn man sicii mit Spielen befaßt, so darf das Genre der 
Glücksspiele nicht fehlen. Zwei Glücksspiele wurden schon 
im Kapitel Kartenspiele beschrieben. In diesem Kapitel 
wollen wir uns nun dem Roulette und einem 'Automatenspiel' 
widmen. 


4.1 Roulette 


Wer kennt nicht das bekannte Spielbank-Spiel Roulette. 
Wohl kein Programmierer kommt daran vorbei, sich so ein 
Spiel zuzulegen. Wir stellen hier eine sehr einfache Ver¬ 
sion vor, die Sie - wie in dem Kapitel Änderungen und Er¬ 
gänzungen beschrieben - natürlich noch auf das volle 
Spielniveau von Roulette bringen können. 


Spielanleitung 

Nachdem Sie das Programm, wie die vorhergehenden auch 
schon, geladen und gestartet haben, erfragt der Computer 
den Kenntnisstand Ihrer Spielregeln. Geben Sie ein 'N' 
ein, so zeigt Ihnen der Computer die Einsatzmöglichkeiten 
bei der vorliegenden Version. Diese sind: 


- Einsatz auf Zahlen 

- Einsatz auf Kolonnen 

- Einsatz auf Dutzende 

- Einsatz auf die einfachen Chancen 


Alle Chancen werden auch graphisch vom Computer darge- 
stel1t. 

Als Abschluß fragt der Computer 'IST JETZT ALLES KLAR?'. 
Geben Sie hier ein 'J' ein, so können Sie gleich mit dem 
Spiel beginnen. Bei einem 'N' gibt der Rechner eine etwas 
ungehobelte Meldung von sich und wiederholt die Ausgabe 
der Einsatzmöglichkeiten. 

Vor jedem Einsatz zeigt der Computer Ihren derzeitigen 
Kapitalstand an und fragt, auf was Sie setzen wollen. 
Folgende Eingaben sind für die verschiedenen Bereiche 
zulässig. 
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Z - für Zahlen 

C - für Kolonnen 

D - für Dutzende 

R - für Rouge (Rot) 

N - für Noire (Schwarz) 

P - für Pair (gerade Zahlen) 

I - für Itnpair (ungerade Zahlen) 

+ - für Passe (alle Zahlen von 19 bis 36) 

- - für Manque (alle Zahlen von 1 bis 18) 


Bei Zahlen, Dutzenden und Kolonnen muß bei der Eingabe ge¬ 
nauer spezifiziert werden, welche Zahl, welches Dutzend 
bzw. welche Kolonne Sie setzen wollen. Dies erfragt der 
Rechner in diesen Fällen sofort nach Wahl der Einsatzart. 
Geben Sie die entsprechende Zahl (0 bis 37), das entspre¬ 
chende Dutzend (1 bis 3) oder die entsprechende Kolonne (1 
bis 3) ein. In allen Fällen (auch bei den einfachen Chan¬ 
cen) erfragt der Rechner anschließend die Höhe des Ein¬ 
satzes. 

Nachdem Sie eine Eingabe getätigt haben, können Sie den 
nächsten Einsatz vollziehen. Wollen Sie nichts mehr set¬ 
zen, so drücken Sie einfach die RETURN-Taste, und der 
Rechner beginnt mit der Auslosung der Zahl. Welche Zahlen 
gerade in seinem Zufallsgenerator ermittelt worden sind, 
wird durch Blinken angezeigt. Die Gewinnzahl blinkt etwas 
länger auf dem Bildschirm. 

Nach Ziehung der Zufallszahl wird diese Zahl, gerade oder 
ungerade, Manque oder Passe, Rot oder Schwarz, das Dutzend 
und die Kolonne am Bildschirm angezeigt und Sie können zum 
nächsten Spiel übergehen, indem Sie neu setzen. 

Wollen Sie mehr setzen, als Kapital vorhanden ist, so 
bringt der Rechner eine Bildschirmmeldung, führt das Spiel 
aber noch durch. Haben Sie auch in diesem Spiel nicht ge¬ 
wonnen (d.h. kein positives Kapital erreicht) so bricht 
der Rechner das Spiel mit einer weiteren Bildschirmmeldung 
a b. 


Programml isting 


:l 0 ti 0 R E ri # i+i 4; ¥ Jl'i +■ + Ht ¥ * '■¥ Hh 4 if * 4 4: ¥ i'H ¥ Hh '¥: * ¥ ¥ 

1010 REi'hhi R 0 iJ L El T T El ¥ 

1020 R El l ' I * * ¥ ¥ 4: * ¥ »K * ¥ * * ¥ * ¥ * JE: * * ¥ * ¥ ¥ ¥ JE ¥ i'E JE * * JE JE: JEi'E ¥ ¥ JE i'EJE: JE: Jl'::+::+: 

10 : 1:0 ; 

1040 ;; 
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;l 050 REM** * i+: * * * * * i-h: * * if * * * * * * i'l'; * ■¥■ * H'i H'i ;'l'i it. 4 f * * i'l'i Hk i'l;! * Hi H: H: 

1060 REM* VORSPRHN / BE:dET 2B I DER VFiRIREil.EH * 

1070 REM* * * * * *■ * * * * * * * * * i* * * i* * * * i+i Hi * * * * i'l'i * *+* * * * i* * * Hi * * i* * * * * * 

1080 PÜKE532S8,. 1 

1090 P0I<E532S1 1 

1100 D fl T Fl" iä ZERO" 

1110 DflTfr'arsiai a i " 

1120 DATA" «SßWJllÄiilllillilJ :E: " 

1 130 DATA " 3 " 

1140 D14TA" MlifliJI 4- '' 

1150 DATA" iCTmiii; : »i.M i |l«M i M i iMiaiii.lltiJKtJtii 5 " 

1160 D fl Tfl' ‘ ifj Flti M i IM H i» P ll>Hii »ina« üiiIMlliiin» l?i iWiM 6 1'' 

1170 DFlTfl"aj::M!;!l!:i;ifJJil.ll'i.8l?.»l»l.ßJ!K3 " 

118 0 D fl T' fl ’' li aa g M ii Ml IM «11 Ii lii lli Bll 11» B» II» It j ».IIJ Ö '' 

1 iF'O i::iFiTi4"iiiM!:i]aMt8Sj(imiiijfiJif!M!.»iii!t!iJiww^a 9 " 

1200 DiiTfl"l«i!ä?!lf|l!:!lHlll»lJI*lMliJll!.i.i 10 " 

1 210 Ü Fl r fl'' llltl jsipil WII | K » I W »IIM N ffii i MMIII ji il'IE' 11 “ " 

12'20 DATA " il Kg -Ttl-Tiffliü »ÜI MH B»i « W t »M' 1 1«»pmti »iiaffifja"" 12:"" 

1230 DFlTFl" RäSifiBa®IJ!iMÜl!JilM.il!ÄllM‘'l 3 

12 4 0 D fl T' fl'' iia aiiiw iii aifflig » » p i w m gn im m ». wi i ig ftia 14 '' 

1250 D fl T fl'' li FiiaBMia eiMi lli gi i HnMiJli i>i i8,giiii||a Iji In Mi.Mi.» ii||i| 1 !5 1" 

1260 D Fl T fl " P » n iMMia :l. e '' 

12701 Dlfl TH " 1 T' " 

1280 DFlTFl ] S " 

1 2 9 0 D A T' f t" a aW: t|ftl B Ii!i:[i! H 'l» P M i »i 1» IM 18« j i 1PI» l.iir" 19 ~''' 

1300 DATA "Hl j i8»i1"laJIMI«ilM'ZZö'' 

1310 DATA " .2; 1 

1 3 20 D fl T 1 = 1 '' NI irBBaaMföteBayiiiiiMiffi 2 2 ■' 

1 3301 DflTFF' iM!M!!lia?!ßB;iÖlJ5!!l!J“ilJiliJi8 23 " 

1340 DAT A "BiaigeliililM B D jM M l ii ft i»sil»Ü » i B 'B» i »M« 1 f!ilMMIj-i 24- 1" 

1350 DFlTFl "@|ä:BÖß;|j!|M9SD3ßl!MilJiÜlM^^ 25 " 

1 360 DFlT Fl "Hli: i 'i! l i!|M M e i - BIe i liaff PHiill>i91»lü»BiM'Pi.BjMMJ 26 " 

1 37 0 D Fl T A'' eiäffliBBßisaaeiiiii 2 t ■ ■ ■ 

13801 D 1=1 TFl'' maBW:[i;Mi!TElTi.ai!Tt|WHIMl»PPPPMi imil.ll 28 " 

:l 3901 DFITFF' i|!a.iJ|i,|p3:0!|]:!!|l!Maa!SafflJSl!ilJSl!lMlLiM'''2 ." 

14- 0 0 D fl T fl'' acjii ji 1)1 P ili IM Mi P tgilSBIg.BRftBBftH» P |i g» Bi j B» B» MMST" 3 0 ■ '' 

1410 DflT' 1=1" i i=MM i!i iiaatiiMi!i apu a ii» mi iHii miih 8>iiH'~'31 " 

]fli20 DfliTFi"ii?tjäi]iii!iMaa?!;i:a!!i®i;[agiiiiiJ«mii'ttiiJai 32 " 

1 4301 DAT Fi'' m :":8iMliMlii»lilaH«l[i!aMiaai!|B.Ii! l iaii!Tai|!ll»PM'»NJn|iM'l|iiW»M 33 1" 

■J. 4'-40 DFlTFl" «siB W gl MM ia g .PßlB lw KIliiII HBi Ha « nPH»H»ll»P!JIHi 34- " 

1 i| 50 DflTT=i " ««siMljWlllsEßiaasHBillllMagllJIW^^ 35 " 

1460 DATTfl'' »;iaiiiiHiiaaH a ii»il ü iMtiiiaiaiiKTiaaiaagjMi a ewiijiMMi) hb«mb 8a 36 " 

1470 DFlTFll .,2,. 1 ,.2... 1 ,2., 1 ...2,. 1 .,2,.2,, 1 ,2., 1 .,2., 1 ...2,1 
14-80 DFlTFl 1 2... 1,2!... 1 21... 2... 1... 2 2... 1 21 2... 1 21 
1490 DIMZFlTFSZi' 

1500 FORI::^.! 1037 
1510 READZFlifi'i; I > 

1520 NEKT 
1530 DI MCE";'336:' 

1540 F0RI:=1T03S 
1550 REFlDCLZF I > 
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1560 HEMTI 
15?0 DIMF’;<:36;:> 

15iS' 0 K 0=500£1 

1590 REM-SPIELREGELN RBFRflGEN ---- 

1600 PRIHT''a;a?Mmi®5B!MS] WIR SPIELEN JETZT ROULETTE." 

1610 PRINT" KENNST DU DIE SPIELREGELN ?" 

ISLU getr^ 

1630 IFRT="N"G0T09030 
1640 I FR-T= " " GOTO 1620 

2010 REM* SPIELBEGINN * 

2020 REM************************************************ 
2030 PRINT"fiaDRNN GEHT'S GLEICH LOS." 

2040 PRINT"S;FFiITES VOTRE JEU" 

2050 REM- VRRIRBLEN VON FRUEHEREN SPIELEN RNULLIEREN— 

2060 F 0 RI = 1T 0 3 
2070 DZ':!I>=0 
2080 CL.':! I >--=0 
2090 NEKT 
2100 PR=0 
2110 IM=0 
2120 PS=0 
2130 MN=0 
2140 RG=0 
2150 HR=0 
2160 F0 RI=0T036 
2170 FZ I > =0 
2130 NENTI 

3000 REM************************************************ 
3010 REM* EINSRTZ RBFRRGEN * 

3020 REM************************************************ 
3030 PRINT"a3SlDU HRST HCCH" :I<R ; "MRRK., " 

3040 IF K R=0 G 0 T'05030 

3050 PRIHT"RUF WRS WILLST DU SETZEN?" 

3060 REN- VERTEILER EUER SRT2RRT ...-.-.-... 


3065 

POKEl 

98^ 

0 



3070 

GETCT 





30 S0 

IFi::T = 

" "G 

Ü TU30 70 



30y0 

IFi;:«:= 

::HF 

T <■. 13 > GOTO5030 



3 1 00 

IFC:T = 

"D" 

GGTO4160 



31 U3 

IFCT= 

"C" 

GOTO4260 



3120 

IFC:T= 

" N " 

GOTO4360 



3130 

IFCT = 

"R" 

(30T04410 



3140 

IFCT= 

" I " 

GOTO4460 



3150 

IFCT: = 

" P" 

GOT04040 



3160 

IFC:T= 

II -7 II 

GOT O40SI0 



3170 

IFCT = 

II II 

GOT045' 10 



3180 

IFC::f= 


GOT04560 



3190 

REM— 

— 

FRLSCHE EINGRE 

E -■ h: 

L FE STELLUNI 

3200 

PRINT 

"□-■JRS HEISST DH " 

C:t ; " ■ 

• 11 

3210 

PRINT 

" ?JI 

CH GI...RUBE .. :i iSH 

MUS:P: i: 

iIR MRL DIE 
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3220 PRIHT"KOr'1Ml=lHDOS ERKLElEREH : 

3230 RRIHT"IF; = ROUGE '::R0T, RED!:' 

3240 PRIHT"H = HÜ IR CSCHWRRZ.r BLflCIC:' 

3250 PRINT "SP = PR IR CGERRDE.- EVEH::' 

3260 RRIWT"! = IRPRIR OJNGERRDE., ÜDO;:' 

3270 RRIHT"a}~ = HRHQUE Cl-lS:? 

3280 PRINT"+ = RRSSE '::i9-36> 

3290 PRIHT"£|:i = DÜUZE CDUTZEND., DOZEH!:' 

3300 RR INT "all: = COLUMN C KOLONNECOLUMH> 

3310 PR INT" SC = ZRHL NUMBER::' 

:3:320 G' 0 T0:305Gi 

4000 REM*:^********:^****************************:^*:^****** 

4010 REN:+ EIN:3RTZHOEHE RBFRRGEN * 

4020 REN**:^***********************:'^********************* 

4030 REM-PR IR- 

4040 INPUT"ajlIEVIEL SETZT DU RUF RRIR",rPR 
4050 KR=KR—F'R: 

4060 G 0 S U B S 0 0 0 
407 0 G' 0 T 0:3 0:3 Gi 

4080 REM-ZRHL- 

4090 IHPUT"aPlUF WELCHE ZRHL WILLST DU SETZEN";X 

4100 INPUT"UHD WIEVIEL" .:V 

4110 KR=KR-V 

4120 GOSUBSeiOiGi 

4130 F;1'::x::'=FX'::x::'+V 

4140 C-i 0 T 0:3 Ci :3 0 

4150 REM-DUTZEND- 

4160 PRINT"RUF WELCHES DUTZEND?" 

4170 GETX 

4180 IFX=0GOTO4170 

4190 IFX>3G0T04170 

4200 INPUT "UND WIEVIEL",:V 

4210 KR=:KR-V 

42201 GOISUB8000 

42:30 DZ';k;>='t' 

424Ol C-i 0 T 0:3 Oi 3 Oi 

4250 REN-KOLONNE- 

4260 PRINT"RUF WELCHE KOLONNE?" 

4270 C-iETX 

42801 IFX=OiGOT0427ei 

4290 IF X > :3 iS 0 T'O4270 

4300 INPUT " UND WIEVI EL " V 

4310 KR=KR-V 

4:320 G 0 S U B 8 Oi 0 Oi 

4:3:30^ C:L'::x::'=V 

4 -G 4 0 G 0 T 0 3 Oi :3 0 

4350 REM-SiCHWRRZ- 

4360 INPUT":a’-IIEVIEL SETZT DU RUF NO IR".; NR 
4370 KR=KR-NR 
4:380 GOSUB8000 
4:390 C-iüTO:30:30 
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4400 REM-ROT- 

4410 IHPIJT"3'JIE'v'IEL SETZT DU RUF ROUGE".:RG 
4420 KR=KR-RG 
4430 GOSUBS000 
4440 GOTO3030 

4450 REM-IMPRIR- 

4460 IHPUT"3'JIE'v'IEL SETZT DU RUF IMPRIR".: IM 
4470 KR=KR-IM 
4480 G O S U B S 0 0 0 
4490 GOTO3030 

4500 REM-MONQUE- 

4510 INPUT"3aiEVIEL SETZT DU RUF MRNQUE";MN 
4520 KR=KR-MH 
4530 GOSUB8000 
4540 GOTG3030 

4550 REM-PRSSE- 

4560 IHPUT"S'nE'v'IEL SETZT DU RUF PRSSE".:PS 
4570 KR=KR-PS 
4580 GOSUB8000 
4590 GOTG3030 

5000 REM************************************************ 
5010 REM* SPIELZUG DURCHFUEHREN * 

5020 REM************************************************ 
5030 PRINT"j5}=lLSO DRNN GEHT'S LOS." 

5040 PRIHT"SF;IEN NE VR PLUS 
5050 FORI=1TO2000 
5060 HEJ-^IT 

5070 REM- SPIELFELD RHZEIGEN - 

5080 PRIHT"3".: 

5090 FIJ RI = 1T U Si 7 
5100 PRINTZR$:'::i::' 

5110 NEXT 

5120 REM- ZUFRLLSZRHL BESTIMMEN - 

5130 F0RI=1T025 
5140 X=INT'::37*RND(: 1 
5150 PRI NTZR$: C X+1 > .: 

5160 F0RJ=lT0Itl.5 

5170 NEXT 

5180 PRINT"HiMI 

5190 FORJ=1TOIt1.5 

5200 NEXTJ 

5210 PR INTZR«: < X+1 ;■ 

5220 NEXTI 

6000 REM*********************************************** 
6010 REM* RUSWERTUNG 

6020 REM************************************************ 
6030 PR INT" MBMBlBMBMBMeMgMi!!] ''.:X.: 

6040 IFX=0THEN PRINT"IBHEERO!":GOTO 6230 

6050 REM- EINFRCHE CHRNCEN - 

6060 IF X RND 1 THEN PRINT" .. IMPRIR ".: :K:R=KR-i- 2*IM 
6070 IF l-CX RND 1 ;:'THENPRINT" ..PRIR " : :KR=KR+2*PR 


* # 
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6080 IF?^:: 1 S'THEINPR IHT'" MRhlQLIE " ; : l<:R==l<fl i-2*r'11l 
6990 IFL:>18THENPRINT" PRSSF"; :!<lT;iai+2:+:PS 
6100 IFCLMCC'^l THENPRIHT" RÜUGE " ; ; l<R==l<R 12*11:0 
6110 IF- C L;'2:1 =::2 T H E N P R11-l T " , H 01R " ; : KI K R+.i: * I I f? 

6120 REH-- DUTZEND -.-........-...■ 

6l::30 PRINT" ..D" 

6140 2 = IN T 2:: 2 ■-1 > 12 i' 4-1 

6150 PRINTV; 

6160 Kfl=KR+:3*D2 C V T 

6180 V = IH T <: 3 * 2 2 3 -1H T12' 3 > > 4.15 > 

6190 IFV=0THEHV=:3 
6200 KR=Kfl+3*CL'::v::' 

6210 PRINT" .:'t' 

6220 REH-- 2RHLEH .- - -..— -..- 

62:30 K R=K R+F 2 >■! * 3 6 
6240 FÜR 1 = 140:20 
6250 PRINTZR^OPhl > ; 

6260 F” 0 R J = 1 'F 0 119 0 
6270 NE2T 
6280 PRIHT"g!llillll 
6290 F 0 F:. T = 1 T 0 :L 0 0 
6300 ME2T 
6310 NE2T 

6320 PRIHT2R$(:24 l > 

6330 PRINT" SMagKMMIili ei lqltlM qMtlMillftj'' ; 

6:3 40 IE R R > 0 G 0 T 0 ;2048 

7000 RE M * * * * * * * *******:'!► H’; * * * * * ****** * * *:+: * * * * * * * * * ?F* * * * * * 
7010 REN* EiPlELENDE BEI NEGRTIVEH KfTPITRL * 

7020 REN*********** * *********:<( * iF: * * 'F * * ;F * * * * * * * * * * * * * * ;F * * 
7030 PRIHT"MTIR SCHEINT... DU BPBT PLEITE !" 

7040 PRINT" ICH GLRUBE... F-IIR HUEREH LIEBER RUF... SONST" 

7050 PRIHT'O'ERLIERST DU HOCH DEIN LETZTES HEHD." 

7060 e:md 

8000 R E N * * * * * * ;F * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * hF * * * * * * * * * * 
8010 REH* POSITIVES KRPITRL ? * 

8020 R E: H * * * * **:+;* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
8030 IFKfl==0 THEN PRIHT'UJpU FIRST VIELLEICHT NERVEN!" 

8040 I FF::R>=0T|...|E|..| RETURFI 

8050 PRINT"I!lfi!j;iflS GLRUBST FIBER RUCH NUR DU." 

3060 PRINT"SCiVIEL FIRST DU .JN GNR NICHT MEHR. " 

3070 G 0 T'050:3Ö 

9000 R E N * ****:+::+:** * *:+: * * * * * ********** * * * * * * * * ********* * * * * 
9010 REM* SPIELREGELN RU3GEBEH * 

9020 REN**** * ********** * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * 
9030 FRINT" CIciaMgMtftaMPMgMHlMmm L PRSS HHL RUF. " 

9 0 4 0 FIJ RI 1T 010 0 0 
9050 HE2T 

9060 PRINT"3HDU DRR:3T RUF DIE 36 ZRHLEN SETZEN:" 

:4070 F 0 R I = 1 T 010 0 0 
:9030 NE2T 
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9090 F0RI-1TU37 
9100 PRIHTZFltC I ;> 

9110 NEXTI 

9120 PRINT" ----" 

9130 FORI=1T01000 
9140 HEXT 

91.1i0 PRIHT" iriiüMiü TIIJF DIE 3 KOLONNEN: 

9160 FOR 1 = 11010010 
9170 HEXT 

9180 PRIHT"Xn 01 02 03" 

91901 FOR 1 = ITO101010 
9200 HEXT 

9210 PRINT"liIfi9JND AUF DIE 3 DUTZEINDE : 

9220 F 0 RI = 1T 0101010 
9230 NEJIT 

9240 PR I NT " ä" : PR INTTRB C 25 " -K " 

9250 PRINTTRB'::25::';" |DUTZEND" 

92601 PRINTTflE'::25::';" | 1 

9270 PR I NTTRB':: 25::' ; " -e-' " 

9280 F 0 R 1 = 1 T 010i 0 0 
9290 HEXT 

93010 PR I NTTRB':: 25::' ; " " 

9310 PR I NTTRB':: 25::' ; " | DUTZEND " 

9320 FRINTTRB'::25::';" | #2 " 

9330 PRINTTRB'::25::' ; " 

9:3 '4 0 F 0 RI = 1T 010 0i 0 
9350 HEXT 

9360 PRINTTRB'::25::';"^;-, " 

9370 PR I NTTRB':: 25::' ; " | DUTZEND " 

9380 F'R 1 NTTRB'::25" | tt 3 " 

9390 PR I NTTRB':: 25::' ; " 's; " 

94010 F 0 RI = 1T010001 
9410 HEXT 
94201 PR INT "3" 

9430 FORI=ITO15 
9440 PR I NTTRB •:: 25::' ; " 

9450 nex:ti 

9460 PRINT";.j:iRNH GIBT ES NOCH DIE EINFFiCHEN OHRNCEN ; " 
9470 PRINT"a" 

9480 FORI = 1 TOS 

94901 PRINT" r e!.i.i!ji.i.i»iJi!!iiJiti,ir-1 " 

95010 PRINT" I | " 

9510 PRINT" I I " 

9520 PRINT" I MMmiiMll I " 

9530 NEXTI 

9540 PRINT" --- " 

9550 PR INT" = PRSSE : ZRHLEN VON 19-36" 

9560 PRINT"- = MRNQUE:ZRHLEN VON 1 -13" 

95701 FRIHT"R = ROUGE: FiLLE ROTEN ZRHLEN iS ffi:'" 

9580 PRINT"N = NO IR : RLLE :5CHNRRZEN ZRHLEN '1 " 

9590 PRINT"P = PRIR : RLLE GERRDEN ZFIHLEN" 
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9600 PRINT"! = ir'1Pfi!R : RLLE UNGERADEN ZAHLEN" 

9610 PR I NI " 1 ir 

9620 F'R I NT " SL'aillMffi.iJiJI NPH I R |imiiliiift»Pi8>iBiii»ai |)i » F'R I RMüMtiriilliZ;!" 

96:20 PR ! NT " SKISSfiillllJI' IO I R |iBilSiil8Bi|»i|l i >aiBp»ti»«i' F:OIJGE|iip>l«i'iaO-3;j'' 

9fT 10 FOR ! ” ITO5000 
9L:':.0 NFTTT 

9660 F'R11 IT'"ST JETZT flLLE:5 KLAR?" 
96:7'0 GETiTT 

:9 6 fiJ'i IF FLL=9' '' G 0 T 0 9 ti 7 0 
::3690 IF H T ■ -:"." GOT 0 2 0:3 @ 

9700 PRi:NT"Lj::ilJ bist hohl etwas doof ? 

9710 FORT==1TO1500 
9720 NEXT 
97:30 GOT090:30 

6000 0 0P ENI r S , 10 

6001 0 FR 1 NT# 1 " S : ROULEITTE " 

60020 CLOSE:! 

60030 SAVE"ROULETTE",S 
60040 END 


Programmbeschreibung 


Das Programm ROULETTE ist wie folgt aufgeteilt: 


1000 - 

1640 

2000 - 

2180 

3000 - 

3320 

4000 - 
5000 - 

4590 

5220 

6000 - 
7000 - 

6340 

7060 

8000 - 
9000 - 

8070 

9730 


Vorspann / Setzen der Variablen insbe¬ 
sondere der Zeichenreihen für die Zahl¬ 
ausgabe 

Spielbeginn mit Annullierung der Varia¬ 
blen aus früheren Spielen 
Erfragen des Einsatzes und Hilfsbild¬ 
schirm 

Einsatzhöhe erfragen 

Spielzug durchführen mit Bestimmung der 
Z Ufa 1 Iszah1 

Auswertung (Gewinnermittlung) 

Ausgabe einer Bildschirmmeldung und Pro¬ 
grammende bei negativem Kapital 
Abfrage auf positives Kapital 
Ausgabe der Spielregeln 


Vorspann / Besetzen der Variablen 

Zunächst werden Bildschirmhintergrund- und Rahmenfarbe auf 
weiß geschaltet, dann werden die DATA-Zeilen ausgegeben, 
die zum späteren Einlesen in die Variable ZA$(37) dienen. 
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Für jede Zahl wird ein eigenes Feld in dieser Matrix aus 
Zeichenreihen definiert, da im späteren Spiel eine Nach¬ 
bildung des Rollens der Kugel realisiert wird, wobei die 
■gezogenen Zahlen' am Bildschirm aufblinken. Daher ist es 
nötig, das Spielfeld in einzelne Zahlen zu unterteilen und 
nicht als Ganzes auszugeben. 

Die Zeilen 1470 und 1480 enthalten einen Merker für die 
Farbe. Eine '1' bedeutet dabei 'rot' und eine '2' bedeutet 
'schwarz'. Diese Werte werden in der Matrix CL%(36) ge¬ 
speichert. Das Einlesen der in den DATA-Zeilen generierten 
Daten erfolgt in den Zeilen 1490 bis 1560. 

In der Zeile 1570 wird das Feld zur Aufnahme des Spielein¬ 
satzes für alle 37 Zahlen (0-36) dimensioniert und in Zei¬ 
le 1580 das Spielkapital mit 5000 Einheiten vorbesetzt. 

Die Zeilen 1590 bis 1640 beinhalten das Abfragen der 
Spielregeln. Sind die Spielregeln nicht bekannt, so wird 
das Programmstück ab Zeile 9000 aufgerufen. 


Spielbeginn 

Bei Spielbeginn müssen die im letzten Spiel getätigten 
Einsätze, die in den Variablen DZ() (Dutzend), CL() (Ko¬ 
lonnen), PR (Pair), IM (Impair), PS (Passe), MN (Manque), 
RG (Rouge), NR (Noir) und E%() (alle Zahlen) zuerst ge¬ 
löscht werden. 


Einsatz abfragen 

Anschließend wird der Einsatz abgefragt, wobei vorher noch 
das zur Verfügung stehende Kapital angezeigt wird. Der Be¬ 
fehl 'POKE 198,0' dient zum Löschen des Tastaturpuffers, 
da es bei unbeabsichtigtem Drücken der RETURN-Taste zu 
einem Spiel ohne Einsatz kommen kann, wenn noch Zeichen im 
Tiistaturpuffer stehen. In Zeile 3070 wird ein Zeichen von 
der Tastatur eingelesen und in Abhängigkeit von dem einge¬ 
lesenen Zeichen entweder in das entsprechende Programm¬ 
stück zur Erfassung der Einsatzhöhe für den betreffenden 
Setzwunsch übergegangen oder - falls ein ungültiges Zei¬ 
chen ausgegeben wurde - zur Anzeige des Hilfsbildschirms 
mit den Setzmöglichkeiten. 


Einsatzhöhe abfragen 

Die Programmstücke zum Abfragen der Einsatzhöhe sind alle 
analog aufgebaut. Zunächst wird abgefragt, wieviel gesetzt 
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werden soll, anschließend wird das Kapital um diesen Be¬ 
trag vermindert und das Unterprogramm ab Zeile 8000 aufge¬ 
rufen, in dem auf positives Kapital geprüft wird. Dann 
wird zur Abfrage des nächsten Einsatzes gesprungen. 


Spielzug durchführen 

Nach einer Bildschirmmeldung wird zunächst das Spielfeld 
erneut angezeigt. Die EOR...NEXT-Schleife in Zeile 5190 
befindet sich innerhalb der umgebenden Schleife zur Aus¬ 
gabe der Zahlen. Durch Angabe des Schleifenendes mit dem 
Parameter der ersten Schleife und zusätzlichem Exponent 
von 1.5 wird ein Langsamerwerden der Bildschirmanzeige 
erreicht. 


Auswertung 

Die Auswertung beginnt mit der Ausgabe der zuletzt gezoge¬ 
nen Zufallszahl. Ist dies eine Null, so wird nur die Mel¬ 
dung ’ZERO' ausgegeben. Im anderen falle wird in den Zei¬ 
len 6060 und 6070 geprüft, ob die Zahl gerade oder ungera¬ 
de ist und eine entsprechende Ausgabe getätigt, sowie das 
Kapital um den eventuellen Einsatz erhöht. In den Zeilen 
6080 bis 6090 wird geprüft, ob die Zahl in der oberen oder 
unteren Zahlenhälfte liegt (Manque, Passe). Auch hier wird 
eine entsprechende Ausgabe durchgeführt und das Kapital 
des Spielers beim entsprechenden Einsatz erhöht. 

Die Zeilen 6100 und 6110 prüfen ab, ob eine schwarze oder 
eine rote Zahl vorliegt. Auch hier wird wieder eine Aus¬ 
gabe getätigt und das Kapital entsprechend erhöht. 

Die Zeilen 6130 bis 6160 berechnen zuerst, das Dutzend in 
dem die gezogene Zahl liegt (6140), geben anschließend 
diese Nummer - nach dem in Zeile 6130 gedruckten ’D' - aus 
und erhöhen in Zeile 6160 das Kapital. Ähnliches geschieht 
auch mit der Kolonne, bei der der Rest bei Teilung durch 
drei verarbeitet wird. Ist dieser Rest Null, so liegt eine 
durch drei teilbare Zahl vor, aber die zugehörige Kolon¬ 
nennummer ist drei. Diese Umsetzung erfolgt in Zeile 6190. 
Zeile 6200 erhöht das entsprechende Kapital, in Zeile 6210 
erfolgt die Ausgabe. 

Die Auswertung eines Qewinns auf Zahl befindet sich in den 
Zeilen 6230 bis 6330, wobei die Zeilen 6260 bis 6330 zum 
Blinken der Bildschirmanzeige dienen. In Zeile 6230 wird 
das Kapital erhöht. 
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Spielende bei negativem Kapital 

Die Zeilen 7000 bis 7060 beinhalten eine Bildschirmmeldung 
(und das Programmende) bei negativem Kapital. 


Abfrage auf positives Kapital 

In den Zeilen 8030 bis 8070 wird geprüft, ob noch positi¬ 
ves Kapital vorliegt, und in diesem Fall das Spiel fortge¬ 
führt. Andernfalls wird noch eine Bildschirmmeldung ge¬ 
bracht und das zuletzt eingegebene Spiel noch durchge¬ 
führt. Der eigentliche Ausstieg erfolgt an anderer Stelle. 
Dieses Unterprogramm wird jeweils nach einem Einsatz auf¬ 
gerufen. 


Spielregeln ausgeben 

In den Zeilen 9030 bis 9730 befindet sich die Ausgabe der 
Spielregeln. Diese sind wie folgt strukturiert (jeweils 
inklusive Warteschleife): 

9060 - 9140 Anzeigen der Zahlen 

9150 - 9200 Anzeige der Satzmöglichkeiten auf Kolonne 

9210 - 9410 Anzeige der Satzmöglichkeiten auf Dutzend 

9420 - 9650 Anzeige der Satzmöglichkeiten auf einfa¬ 

che Chancen 

Die Zeilen 9660 bis 9730 erhalten noch eine Abfrage, ob 
die Spielregeln nochmal ausgegeben werden sollen. 


Änderungen und Ergänzungen 


Genau wie bei den anderen Spielen, können bei ROULETTE 
auch noch Ergänzungen und Änderungen durchgeführt werden. 
Eine sinnvolle Ergänzung wäre z.B.: ein Unterprogramm ab 
Zeile 10000 zu schreiben, was alle Variablen, die Einsätze 
beinhalten und die ungleich Null sind, mit einer entspre¬ 
chenden Bemerkung auslistet (PR, IM, ...). Damit wird dem 
Spieler eine Anzeige gegeben, auf welche Chancen er schon 
wieviel gesetzt hat. 

Eine weitere Möglichkeit wäre es, den Einsatz auf Cheval 
und Carre zuzulassen, sowie Sechsergruppen und Dreiergrup¬ 
pen (Simple und Transversale Simple). Hierzu müssen dann 
entsprechend Leider dimensioniert werden und auch die ent- 
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sprechenden Eingaben, die man an Zeile 6340 anschließen 
kann. 


ROULETTE 1000 - 9730 


Variablen: 


Name 

! Typ 

! Bereich 

! Bedeutung 

A$ 

! H 

! 1 Zeichen (O/N) 

! von Tastatur 

C$ 

! H 

! 1 Zeichen (D,C,N, 

! von Tastatur für Aus- 


! 

! R,I,P,Z,+,-, 

! wähl der Chance auf 


! 

! CHR$(13) ) 

! die gesetzt wird 

I 

! H 

! 1... 3 / 0...36 

! Laufvariable 

J 

! H 

! 1... I hoch 1.5 

! Laufvariable 

IM 

! G 

! Ganzzahlig 

! Einsatz auf Impair 

KA 

! G 

! Ganzzahlig 

! Spielkapital 

MN 

! G 

! Ganzzahlig 

! Einsatz auf Manque 

NR 

! G 

! Ganzzahlig 

! Einsatz auf Noir 

PR 

! G 

! Ganzzahlig 

! Einsatz auf Pair 

PS 

! G 

! Ganzzahlig 

! Einsatz auf Passe 

RG 

! G 

! Ganzzahlig 

! Einsatz auf Rouge 

X 

! H 
! 

! 

! 1... 3 

! 

! Zwischenspeichern Art 
! des Dutzends oder der 
! Kolonne bzw. 


1 

! 0... 36 

! ZufalIszahl 

Y 

! H 
! 

! Ganzzahlig 
! 

! Zwischenspeichern Ein- 
! satzhöhe 


Felder (Arrays): 


Name ! Dirnen. ! Typ ! Bereich ! Bedeutung 

CL() ! 1...3 ! G ! Ganzzahlig ! Einsatz auf die 

! ! ! ! verschiedenen 

! ! ! ! Kolonnen 

CL%() ! 0...36 ! G ! 1,2 ! Kennzeichnung 

! ! ! ! 1 = Rot 

! ! ! ! 2 = Schwarz 

DZ() ! 1...3 ! G ! Ganzzahlig ! Einsatz auf die 

! ! ! ! verschiedenen 
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F%() 

! 

! 0 ... 36 

1 

! 

1 

g ! 

Ganzzahlig 

! Dutzend 
! Einsatz auf die 

ZA$() 

! 

! 

! 1... 37 

! 

1 

1 

! 

1 

G ! 

Zeichenreihen 

! verschiedenen 
! Zahlen 

! Positionierung 


! 

! 

! 

! 

! 

! 

! 

! 

! 


! und Ausgabe der 
! Zahlen auf dem 
! Bildschirm 


Unterprogrammaufrufe : 


! 

i n ! 

nach 

Zweck 




! 

! 

4020 

8000 

Abfrage 

auf 

positives 

Kapital 


! 

4080 

8000 

Abfrage 

auf 

positives 

Kapital 


1 

4180 

8000 

Abfrage 

auf 

positives 

Kapita1 


! 

4280 

8000 

Abfrage 

auf 

positives 

Kapital 


! 

4340 

8000 

Abfrage 

auf 

positives 

Kapita1 


! 

4390 

8000 

Abfrage 

auf 

positives 

Kapital 


! 

4440 

8000 

Abfrage 

auf 

positives 

Kapital 


j 

4490 

8000 

Abfrage 

auf 

positives 

Kapital 


! 

1 

4540 

8000 

Abfrage 

auf 

positives 

Kapital 

-1 


Verzweigungen 

nach außen : 


i n Ze ! 

nach 

! Bedingung 

! Bemerkung 

7060 ! 

END 

! normales Ende 

! 


4.2 SUPERHERZ 


SUPERHERZ ist ein Mittelding zwischen den Geldautomaten in 
Gaststätten und den einarmigen Banditen, wie sie in Spiel¬ 
hallen stehen. Mit diesem Spiel sollen weitere grafische 
Möglichkeiten des Commodore 64 aufgezeigt werden. Auch 
dieses Spiel läßt sich von Anfängern in der Programmierung 
leicht verändern und verbessern. 


Spielanleitung 

Nachdem Sie das Programm geladen und gestartet haben, 
fragt der Rechner 'IHR KAPITAL ?'. Geben Sie hier bitte 
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eine - bis zu fünfstellige - Zahl ein. Das Spiel arbeitet 
zwecks feiner Abstufung der Gewinnmöglichkeiten mit rela¬ 
tiv großen Kapitalmengen. Ein Spiel kostet normal 200 Ein¬ 
heiten. 

Nachdem Sie Ihr Kapital eingegeben haben, erscheint die 
Anzeige mit vier nebeneinanderliegenden Feldern, in denen 
die Zahlen 0 bis 9 und die vier Kartenfarben in Großdar¬ 
stellung Vorkommen können. Sinn des Spieles ist, möglichst 
viele nebeneinander liegende gleiche Symbole zu erzielen, 
wobei die Kartensymbole und hier wieder ganz besonders das 
Herz bevorzugt werden. 

Bei den ersten drei Anzeigen haben Sie die Möglichkeit, 
diese nochmals zu starten. Für jeden Startvorgang werden 
50, 100, 150 Einheiten abgezogen. Die letzte Zahl kann 
angehalten werden (200 Einheiten). Drücken Sie dazu je¬ 
weils die SPACE-Taste. 

Superspiele gibt es bei vier gleichen Zahlsymbolen, bei 
mindestens zwei nebeneinander1iegenden Kartensymbolen oder 
bei Auftreten eines einzigen Herz-Symbols. 

Ist ein Spiel zu Ende, so wird anschließend - ebenfalls in 
großen Ziffern - Ihr Kapital angezeigt und Sie können das 
nächste Spiel beginnen, indem Sie wieder die SPACE-Taste 
drücken. 

Superspiele werden durch einen blinkenden Bildschirm ange¬ 
zeigt. 


Programm-Eisting 


1 000 
1 0 1 0 
1 020 
10130 
1040 
1 0150 
1060 
1 0701 
1 080 
1 090 
1 100 
1110 


REI'1 ****if*i|(i|(*S|K****1|^**S|KiRf*i|(if*********S|KS|Kif*******i|f**^ 
REM * S U P E R IH ERZ * 

R EM * H'i Hi: Hi: 

REM : 

REM : 

R E M iK * * iK * if: JRf * # * sH * He He if i'K He if i'le * * * He iK Hi He * He if iHe 

REM He VORSPRNN / BESETZEN DER VRRIRBLEH * 

R E M H He Hi Jle He iHi He H i+i He H He if if He * He H * H i.|e H # Hi H He H H * Hi He He H Hi Hi i+i Hi Hi Hi He He H He üK Hi Hi H i+i 
POI<E532S0i,.? 

P0I<E53281 

PRINT"|3I1" 

DI MRT e 15 > 


1120 REM- STELIERCODES UND GRRFIKRUSGRBEN — 

1130 z:f=:"m!.M!jtijmM" 

1140 WSTRRTJSI siHiiniiigiin 

1150 Cä:==" »Ü»I " 
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iie0 D$=i::$+z^+‘'ir' 

1170 E:t=D^-i-Z$+"Sr’ 

1180 H$=.-" äiiiiiRiniii äiinmifflii 

1190 F$=E$+Z$+"SS" 

1200 m 15=" liiiiiiaaiiiissgaiiiiiBiiiiiiiiifaiB 

1210 < 1':5>=:R4':: 15 »lila 

1220 R$'::15>=R4<15::h-" üilliü" 

1230 S:t=:"ja :^IBRIBBnS ttSTQPIJä lüiiiiiinns 

1240 REM- ZRHLEH UND ZEICHEN - 

1250 R$':;i:;' = "m siiiiii jy i aiiiMi i 

1260 FÜRI=1T03 


1270 

84':; 1 ::'=84':: 1 " a 1 

iüiniini" 




1280 

HEXT 






1290 

84 1 =84 C 1 " 






1:300 

84'::2::' = "B gllilBI 


'Pi gJillll 


a 

1 iHJIIBIII 

1310 

84'::2::>=R4'::2::' + " 

iülBMRIig 

siiniiis " 

1320 

84'::2::'=R4'::2::' + ".a « :^iiniiiini 




13310 

84':: 3::'= "11 ilü-liillfi 

a 

1 :giimui 


a 

!i :aiiiiiiis 

1340 

84':: 3::'=84':: 3::' + " 3 1 

glHRBS a 1 


1350 

84'::3::'=R4':::3>-i-" ,3 1" 






1360 

84':: 4 ::' = "* :ill]BlffiBI 

a 

1 Sllllll 

a 

p 

ja 1 " 

1370 

84'::4::'=84'::4::'-i-":5l||liiil 

jä 

1 :aiBiiiii 


a 

1 " 

1:380 

84'::4::'=R4'::4::'+")3.1iHfflU 


a 1 :&iiniHi 



" 

1:390 

84':. 51 = " H 

a 

1 sinninip 

a 

1 

II 

1 400 

84':: 5::'=84':: 5:.'+ "£■■■■■! 

a 

'Pi giiinii 


ä 

1 " 

1410 

84'::5::'=84'::5::' + "g|iB!Bia 


w giniiaiii 



II 

1420 

84'::6:> = "i SBIIIII 

a 

p giiiiii 

a 

1 

11 

1430 

84':: 6::' =84':: 6::' + " gliiUlll 

a 

n SIBIffllll 

.a 

M 

a ■ " 

1440 

84 ':: 6 :.' =84 ':: 6 ::' •i-" glilRBI 

a 

p ginniBRa 



II 

1450 

84':: 7 SliBIBl 


1 :!!!iHiinir 

1 



1 460 

FORI=1T04 






1470 

84':: 7::' =84':: 7::' + " a 1 

iniiiBin»" 




1480 

HEXT 






1490 

84':: 7::' =84':: 7::' + " 






1 500 

84':: 8 ::' = "« glHBBBS 


m gliSIBBIII 

s 

m 

a p " 

1510 

84 03::' =84 '33::'+ ■' sjiBHilS 

a 

1 glMOIliBg 

a 

P. 

a 1 

1520 

'33 ) =R^- +■ " JS ® 

:>annnBi 




1 ^530 

84'::9::' = " II siiiinii 

a 

m siiiiiBii 

a 

n 

a 1 " 

1540 

84 ':: 9 ::' =84 ■:: 9 ::' + " :glllllBill 

a 

1 snBiBBI 



1 " 

1550 

84'::9::'=R4'::9::' + "BliiiBII 

iiü 

1 iamiiiHn 



II 


1560 Ri:.::i 0 ::'="M a ainiBi» a a a « " 

1570 Ri-'::i0::'=:::R:f':: 10::' + "filiHHIII £! 1 St 1! SIBBIilll S 1 S P 

1580 FN:':; 10::'=R:f 10Vi-";gliBIIHll S 1 filBliiil 

1590 R;F':: 11 ".g üihüH) 'T' iiiiMniiB 4' sliNnnr' 

1600 R4 C 1 1 > =84: <: 1 1 1 + " 'l.'f"tN"-T':»llill88 4< giniilil ^ " 

1610 841 1 > =R:t C 1 1 + " Sffliilll 

1620 84':: 12::' = "a SIIIBII ^ '*"»"1' flliiiiS" 

1630 8:4':: 12::'=84':: 12>-h"^h’t"t"l-'t'g|li®iil 't' igülUllllll ♦'»”*' " 

1640 8:4 1 2 =84 1 2 + " ieilBllil 
1650 84':; 13::' = "ia :gRiilllN"iii' 

1660 84':; 13;:'=84':; 13::'-I iülllMISIIlil " 
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:i ft70 :i 3 :=m •::! 3 ;■ +" 

;l6so äjnaiiiit aiiaiii" 

1330 sinillll + " 

1.700 Fl:J: 4 1 4 =:r:R:3^ 4 14 > -f " jülSinniil 
3.71.0 fii:<0::'™Rt < lOI' 

2010 F?E:n * SP1ELEEC3INN * 

2020 E:E4'1 

2030 PR IUT " :. 7BMai;Mi'lMg ii!:| I HR E4HF’ I T HE." .: : IHPUTKR 

204-0 FR;II'IT'':3ä:BffiM!:il.lS!Jg;;ii5;i»;;iiii 
213'50 FORI = 1708 

2060 PRINT"|#4 c 

2070 HEERT 

2030 11=4 
2I.00 T=TI 
2110 H7=0 
2120 : 

2130 REH -...- EIGENTLICHES SPIEL - 

2140 : 

215 0 IF S U :> 0 T H E N3680 

2160 REM-.. ERSTES FELD ...-----____ 

2170 I = 1 


2180 HB=:0 

21R 01 F 0 R. J = 1T O 2 0 

2200 H1 'l I > =: I NT ■:: 1 4*RND E 15 > > r-1 

2210 IF S U > 0 T H E N G 0 S U B 6 0i O 0 

2220 PRI NT " ;sMSß3;i:!!®ll!Lilj!lli.llU'' .i'i« 'i H1 4 1 i l' 

2230 HENT 


2240 

22501 

2260 

2270 

2280 


I FHBr=0THEHPR IHT CT ; BT : FOR 1 = 1701500 : NE! 
IFHB C11HEHHB = 1:1 = 1: KR=FR-50 : (50T02190 
PRIHTCT.H-IT 

rem - ZWEITES FELD ...—- . 

1=2 


:T :GETGT : IFGT= 


""THEH22 


6t:l 


2290 HB=2 

2.3 0101 F 0 R ..I = 1T 0 2 0 

2310 Hl I ::■ = INT'l 14*RHDC 15> >•+■ 1 

2320 I FSLI>0THENGOSIJB6000 

2330 F'R IHT " ää!äSEISl5lftllMftWI®Jl!ß;i.fflli.r'' .? RT ’i H1 < 2 !> 

2340 HEKT 

2350 I FHB=2THEHPR IHTDTBT : FOR 1 = 1 TO 1500 : HEKT : GETGT : I FGT= 
2360 I FHB<;3THEHHB=3 : I =2 : KR=KR-1 GO : GOTO23G0 " " THEH23 70 

2370 PRIHTDT:HT 

2380 REM- DRITTES FELD - 

2390 1=3 

2400 HB=4 

2410 FOR..I:=1TO20 

2420 Hl I ::■ = INTF 1 4*RND'l 15;■ > +1 

2430 IFSIJ30THEHGOSLIB6000 

2440 PR I NT " SaEEEeaUlÄllM.PJWli'i^^ .: HT C H1 < 31 

2450 HEKT 
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2460 I FHB=4THE:NPR I NTE:t; :FÜR I = 1 TO 1586 ; NEXT : GETGT : IFGT:::: 

2470 IFHE<5THENHB=5 : I =t3 : KR=Kfl-158 :00102418 " ■'THEH2480 

24B!0 FRIHTETjHT 

2490 REM—.- VIERTES FELD .....-.-.-.-... 

2500 1=4 

2510 HB=6 

2520 FRlNTFTrST 

2530 F 0 R J = 1T 0 50 

2540 H1 I = I NT' C 14*RND15 > +1 

2550 IFSU>0THENGOSUE6000 

2560 PR IHT '* ;■ w '■ H ]. 14 > 

25701 iJ E T G T 

2580 IFG^iO" "THEN2600 
2590 HEXT 
2600 PRINTFT;HT 
300 0- K f-l=K R - 2 0 iZi 

3010 REH i+; i+i 4: # # * * H4+: iifi J|t sh j|': i^^ i^^ j|f s|f nf: * Sit *:+; HK* H|t i'K:'K iil'i iK Hl *i'K HK 'f iK HV|f 

3020 REH * RUSNERTUHG * 

3030 REH 

3040 I FSU<0THEHSIJ=::0 
313 513 GOTO3090 
3060 PRINTF;T;HT 
313 713 F 0 RI = 1T05000 
3080 HEXT 

3090 IFSü>eTHEH3570 

3100 REH-- PRUEFEH RUF KRRTEHSVHBOL —..... 

3110 F0RI=1T04 

3120 I FH 1 C I < 1 1 ■T HEH32113 

3130 HEXT 

3140 SU=SU+25 

3150 F0RI=:2T04 

3160 I FH 1 <: 1 > OH 1 ■; I THEH3218 

3170 HEXT 

3180 SU=SIJ+25 

3190 I FH 1 1 ::■ = 13THEHSIJ=SU+25 

3200 REH- PRUEFEH RUF HERZSVHBOL ----- 

3210 H4=0 

3220 F0RI=1T04 

3230 I FH 1 c; I :;■ = 1 3THEHH4=:H4+ 1 

3240 HEXT 

3250 IFSU=0THEHSU=H4 
3260 I FH 1 1 3 =H 1 1 4 THEH3318 
3270 IFHl C 1 ::'=:H1 ■::2;:'THEH3360 
3280 I FH 1 1 2 ;j =H 1 <: 31THEH3418 
3290 GOTO4030 

3300 REH— PRUEFEH HUF VERSCHIEDEHE SVHBOLKOHBIHRTIOHEH - 
3310 I FH 1 2 =:H 1 3 1THEH3440 

3320 I FH 1 <: 3 > <: 11 THEHKR=KH+1 1 iKH 1 3> : GOTO4030 
3330 I FH 1 <: 3 ::■ = 13THEHSU=SU+5 : GOTO4030 
3340 SU=SU+3 
3:3 5 Gl G 0 T04038 
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3360 

IFHl 

?2::':=H1 

?3::'THEN3490 



3370 

IFHl 

C 2 ::• <: 1 1 

THENKR=FTFI-+1 

14H1CPT :GO 

T 04 0:30 

3330 

IFHl 

'■! '2. y 1 3 

THEHSLI=SLI-+3 

GO T 04 0:30 


33S0 

SU~SI 

J + 3 




3400 

GOT'LI 4 0:30 




3410 

IFHl 

L 1 ::'=H1 

'::2::'THEH3490 



3420 

I FH 1 

?4::'=H1 

?2::'THEN3440 



3430 

GOTO: 

3320 




3440 

IFHl 

■:: 1 ::■ =H 1 

? 2 > THEH3510 



3450 

IFHl 

c 3 ::■ <: 11 

THENl::H=;:|<fl+l 

114H1CST :S 

U=SIJ -+ 5 : G1J T 04 0:30 

*4 6 

IFHl 

'33>=:13 

THENSl.J:=SLI+5 

0 : GOT040:30 


3470 

SU^Sl 

LI+10 




3430 

GOTO 

40:3£i 




:34:30 

I FH 1 

■:: 1 ::■ =H 1 

?4::'THEN3510 



■3500 

GOTO 

3450 




3510 

IFHl 

■:: 3 ::■ <: 11 

THEHI<FI=I<H-+1 

1114H1? 3 T ; 

RI l-SI 1+25 : GO 104030 

3520 

IFHl 

C 3 T = 13 

THENSLI=SU+1 

00 :GijTO40:3 

0 

3530 

SLI=:5I 

I...I+50 




3540 

GOTf-'i 

40 Pili 




3550 

GOTO 

40:30 




3560 

REN- 

..- s 

ONDERSPIEL. 

..-... 

-----— 

:3570 

H4=0 





3S30 

HFi=0 





3590 

FORI 

=rlT04 




3600 

IFHl 

L I > = 13 

:THENH4=H4 +1 



36113 

I FH 1 

? I T T- :l G 

iTHEHHfl=HH4 1 



3620 

HELCI 





■ :::63i|-:i 

k:h=k 

Fl+5004 

:H4-i-HH4200 



3640 

I FT-IT 

::^ 1 TUET 

ISU==SLI+5 




3650 SU=:SU.1 

:.;:660 I E SU CüTIHEI-ISU-e 
3670 GO'l'üSl 10 

;!3 6 S 0 R IE ri Jl': '/¥■ ':¥■ i+i ;'l'i hN ;+i * i+ -'1^)(«JK ii!« Jl'i i'l'i i+: hN jI': H'; Hl'i i'K il; * Hh * * Jh; sh hN i'K * i+; 

36E;'0 REN * RN2EIGE SLIPERSPIEL * 

:31’ 0 0 R E N itii+i+4 4 sl'i jE iiE 4i Jl'i i'!': 4^^131' i'I +; i'h :'l^ * * sH hH :+i Hh * H' >1'; JE ;+; sK 'M * H'; * sH Hh * 

:3 710 IF S:::: 0 T L fEI N Li r.: 1 ! P RIN T ' 5 J " J : 'S Ci T 0 3173 Ö 

:3;730 IFSL:: 1 THEI-|:!3:.=0 ;;PRIl-IT "'S" .? :GO1"G:377'0 

37:30 PI31HT'' ; 

3740 FlRIHI-'^SS^JPEEESPIELMIiMIliilliffllJlilllir’ ? 

:3 715 0 P F? I N T " '' 

::>;''60 G0TCP115© 

:3'.-’7e PR I I Fr " ;;:a|i*i!Jl!!l,»iSJ|ii|'fi.lS.i!jlÜl Jlllilinilinililllliil" ; 

3730 PRINT" ^liniiiiiiiiBnil" r 

37:30 FT? INT" 

:3300 GOTO4150 
3:3:1 8 END 

■11J00 REN '¥■ 4:*4:4:4444:4;4:4444444444444444:444:44444:44;44444444444 
4010 REM 4 F3NZEIGE KPlPITRL 4 

■413;:? 0 F? E M 4 4 il: il: :4:4:44 44': :4 4 4444': :4 4:4:4 ;4 4:444 444:4 4 4:44 4:4:414 44 44444 444 4 
-1030 IF S LI > 0 T H EI ■ 1:3 0 4 8 
4040 PRINT"□« 














148 


Kapitel 4.2 


4050 F0RI=1T0? 

4060 PRIHT" i; ii ii 1 ii 

4070 NE/^T 

4080 PRINT" . ' ' > 

4090 PR INT" MüffiltlBPlIiüM " ; 

4100 I FKfl<0THENPR I NT " j3E; ITTE NFlCHSRHLEN " ? BBS < KR +100:1 NPUT 
4110 GOSUB5030 "NIEVIEL" ;ZZ:KR==KH+ZZ 

4120 GETRT 

4130 IFflT=""THEN4120 
4140 GOTO204EI 

4150 PR INT" :i!ligt!Mt!Mi!lMi!Mi!!M«BBIi||i»Bi|i»|i>lii|>» ; 

4160 H4=:INT'::SU/10::' 

4170 PR INTRT C H4 > ; " »»»rTITTTT ' ; 

4180 81=81+1 
4190 H4=SIJ-H4*10 
4200 PRINTR$'::H4::' 

4210 PR I NT" .? Kfl 

4220 G 0 T 0 2170 

5000 REM *************#********H«*************H':*H-;*)-H******* 
5010 REN * ZRHL FUER KRPITRLRNZEIGE RUFBEREITEN 

5020 REN ****i+;**H(**i+i**#;f******;^tH<**il'i*#i+;*J|f*H':;'F*:t:***;+:**jF*H':;+:** 
5030 LT=''IMMAI" 

5040 K$="äifflMM!" 

5050 PRINTK#; 

5060 H2= I NT C KR.-' 10000 > 

5070 PRINTRTCHZ::' 

5080 H3=KR-H2*10000 
5090 K$=K4:+LT 
5100 PRINTK^:; 

5110 H2=INT'::H3/1000::' 

5120 PRINTRT'::H2::' 

5130 H3=H3-H2*1000 
5140 K4:=K4:+L$ 

5150 PRIHTKT; 

5160 H2=INT<H3,-'100::' 

5170 PRIHTR4:'::H2::' 

5180 H3=H3-H2*100 
5190 IFSU>0THENJ=J 
5200 K4:=KT+L.T 
5210 PRINTKT; 

5220 H2=INT'::H3/10::' 

5230 PRINTR4:'::H2> 

5240 H3=H3-H2*10 
5250 KT=KT+L4: 

5260 PRINTK#,? 

5270 PRINTRT'::H3::' 

5280 SP=SP+1 
5290 RETURN 
6000 FR=FR+1 

6010 I FFR=4THENPOKE532:30,8 : PÜKE53281,8 
6020 I FFR=8THENFR= 1 : P0KE532S0.. 6 : P0KEI53281 6 
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6030 RETURN 

6010010 OF'EiH 1 ,8 15 

60010 PR I NT# 1 " S :SUF'ERHERZ 

6010120 CI, OSE 1 

60030 SH VE " SUPERHERZ " 8 

60040 e:hd 


Programmbeschreibung 

Das Programm SUPERHERZ ist wie folgt aufgeteilt: 

1000 - 1710 Vorspann und Besetzen der Variablen 
2000 - 2590 Spielzug 

3000 - 3790 790 Auswertung inkl. Programmstück 
zum Anzeigen eines Superspiels 
4000 - 4220 Kapitalanzeige inkl. Nachzahlen 
5000 - 5290 Unterprogramm zur Zahlaufbereitung für 
die Kapitalanzeige 

6000 - 6030 Unterprogramm als Zähler für Farbumschal- 
t ung 


Vorspann und Besetzen der Variablen 

Zunächst werden Bildschirmhintergrund und Rahmen auf die 
Farbe blau geschaltet und einige Zeichenreihen besetzt 
(Z$, B$, C$, D$, E$, H$, F$, S$), die die grafische Aus¬ 
gabe am Bildschirm unterstützen. Dann werden in der Va¬ 
riablen A$() die überdimensionalen Zahl- und Kartenzeichen 
festgelegt, wobei durch Verwendung von 'Cursor rechts' und 
'Cursor nach unten' jede Zeichenreihe ein in sich ge¬ 
schlossenes Gebilde ist, das jeweils eine ganze Zahl bzw. 
ein Kartensymbol anzeigt. 

Spielbeginn 

In Zeile 2030 wird das Kapital erfragt und in den Zeilen 
2050 bis 2070 in einer Schleife der Rahmen zur Anzeige der 
gezogenen Werte aufgeführt. Dann werden noch einige Hilfs¬ 
variablen besetzt u.a. wird der Variablen T die Einschalt¬ 
zeit des Computers mitgeteilt, so daß bei einer späteren 
Programmergänzung die Spieldauer abgefragt werden kann. In 
den Zeilen 2160 bis 2600 werden jeweils für die vier Fel¬ 
der in einer Schleife Zufallszahlen ermittelt. Liegt gera¬ 
de ein Superspiel vor, was in den Zeilen 2210, 2320, 2430 
und 2550 abgefragt wird, so wird durch Aufruf des Unter¬ 
programms ab Zeile 6000 noch geprüft, ob eine Farbumschal- 
tung durchgeführt werden muß. In diesen Programmstücken 
wird auch überprüft, ob ein Tastendruck vorliegt und ent- 
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sprechend zum weiteren zufälligen Auswahlen einer Zahl zu¬ 
rückgesprungen, bzw. beim vierten Feld zum Anhalten des 
Zufa1Islaufes. Ebenso wird in diesen Bereichen das Abzie¬ 
hen der Einheiten vom Kapital vorgenommen. 


Auswertung 

Beim Prüfen auf ein Kartensymbol wird in den Zeilen 3100 
bis 3190 zunächst abgefragt, ob die Felder einen Wert 
kleiner als 11 enthalten (Zahl 0 - 9). Liegen vier Karten¬ 
symbole vor (dann wird Zeile 3140 erreicht), so wird die 
Anzahl der Sonderspiele (SU) um 25 Einheiten erhöht. In 
der nächsten Schleife wird überprüft, ob alle vier Karten¬ 
symbole gleich sind. In diesem Falle wird auch wieder die 
Anzahl der Sonderspiele um 25 Einheiten erhöht. Sind alle 
Kartensymbole gleich und liegt ein Herz vor (Hl()=13), 
dann wird die Anzahl der Sonderspiele um weitere 25 Ein¬ 
heiten erhöht. 


Die folgenden Zeilen prüfen ab, ob und wieviele Herz (H4) 
in der Anzeige vorhanden sind. Für jedes Herz-Symbol wird 
ein Sonderspiel hinzugezählt. In den Zeilen 3260 bis 3280 
wird auf paarweise Gleichheit der Anzeige geprüft. In Ab¬ 
hängigkeit von einer eventuell auf getretenen Gleichheit 
wird in die entsprechenden Programmstücke verzweigt. 


Ist das dritte Feld gleich dem vierten Feld, so wird in 
Zeile 3310 gesprungen und dort überprüft, ob das zweite 
auch gleich dem dritten Feld ist. Liegt auch dies vor, so 
wird in Zeile 3440 gesprungen und überprüft ob die ersten 
beiden Felder gleich sind. 


Nachdem die andere Programme in diesem Buch schon sehr 
ausführlich beschrieben wurden, wird es eine gute Übung 
sein, herauszufinden wie das Programm vorgeht und welche 
Kapitalgutschriften sowie Sonderspielgutschriften in wel¬ 
chem Falle der Anzeige getätigt werden. 


Ebenso zur Errechnung des Kapitales und der Zahl der Son¬ 
derspiele werden die Zeilen 3570 bis 3660 herangezogen, 
die angesprungen werden, wenn bereits ein Sonderspiel vor¬ 
liegt. 


Die Zeilen 3680 bis 3760 beinhalten die Anzeige für ein 
Superspiel mit EarbumschaItung (3710 und 3720). 


Anzeige Kapital 

Die Kapitalanzeige wird unterdrückt, wenn ein Superspiel 
vorliegt. Hierbei wird davon ausgegangen, daß Sie natür- 
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lieh weiterspielen wollen. Zunächst wird ein Rahmen für 
die Zahlen ausgegeben und der Kapital stand überprüft. Ist 
dieser negativ, so können Sie nachzahlen. 

Anschließend wird das Unterprogramm zum Aufbereiten der 
Zahlen aufgerufen und eine Warteschleife auf den Druck 
irgend einer Taste durchlaufen. Dann wird für die Anzeige 
der Anzahl der Superspiele auf dem Spielfeld (die Variable 
SU) in zwei Ziffern zerlegt. 

Zahl für Kapitalanzeige aufbereiten 

Das Aufbereiten der Variablen KA in einzelne Ziffern ge¬ 
schieht durch fortgesetzte, stellenbezogene Integer-Bil- 
dung. Jede einzelne Vorkommastelle des Kapitals wird so 
überprüft und anschließend sofort ausgegeben. 

Außerdem wird in Zeile 5280 noch ein Zähler für die Zahl 
der Spiele mitgezählt. 

Die Zeilen 6000 bis 6030 erhöhen jeweils einen Earbzähler 
und schalten jeweils bei vier bzw. acht die Bildschirmrah¬ 
men und die Hintergrundfarbe zwischen orange und blau um. 
Eine schnellere Anzeige würde ein Eiackern auf dem Bild¬ 
schirm hervorrufen. 


Änderungen und Ergänzungen 

Die Programmbeschreibung zu SUPERHERZ wurde absichtlich 
etwas kürzer gehalten, damit Sie auch eine kleine Übung 
haben, ein Basic-Programm ohne nähere Bedienungsanleitung 
zu verstehen. Wenn Sie das Programm ganz durchschaut ha¬ 
ben, dürfte es natürlich für Sie nicht schwer sein, es 
Ihren Wünschen anzupassen. Ich glaube bei diesem Spiel 
brauchen keine Tips gegeben zu werden, wo etwas verbessert 
werden kann. Das Eeld der Geldspielautomaten und einarmi¬ 
gen Banditen, bietet hier bestimmt reichhaltige Möglich¬ 
keiten. Versuchen Sie selbst ein komplettes Programm in 
Anlehnung an das vorhandene zu entwickeln, indem Sie sich 
einen Spielautomaten in einer Gaststätte mal näher an¬ 
schauen. 
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Felder 

(Arrays): 


! 

! 

! 

Name ! 

Dirnen. ! Typ ! Bereich 

! Bedeutung 

! 

__j 

A$() ! 

1...15 ! G ! Zeichenreihen 

! Symbole 

! 

i 

Unterprogrammaufrufe : ! 

! 

1 

i n ! 

nach ! Zweck 


! 


2210 ! 6000 ! Earbwechsel ? 

2320 ! 6000 ! Earbwechsel ? 

2430 ! 6000 ! Earbwechsel ? 

2550 ! 6000 ! Earbwechsel ? 

4110 ! 5030 ! Kapitalanzeige 


Verzweigungen 

nach außen : 


in Ze ! nach 

! Bedingung 

! Bemerkung 

keine ! ! ! 
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5. Sonstiges 
5.1 NOTIZBLOCK 


NOTIZBLOCK ist kein Spiel im eigenlichen Sinn, sondern 
dient nur zur Spielunterstützung für andere Kartenspiele, 
hier für die Spiele Skat, Doppelkopf und Canasta. Sie 
sparen sich so Ihren Notizblock und haben immer auch die 
aktuellsten Zwischenergebnisse griffbereit. 


Spielanleitung 

Nach dem Sie das Programm 'NOTIZBLOCK' wie schon vorher 
die anderen Programme geladen und mit RUN / RETURN-Taste 
gestartet haben, erscheint das Menü am Bildschirm bei dem 
Sie zwischen folgenden Beispielen wählen können: 

1 - Skat 

2 - Doppelkopf 

3 - Canasta 


Skat 

Wählen Sie im Menü eine '!' an, so fragt der Rechner nach 
den Namen der drei Spieler und dem Spielfaktor. Der Spiel¬ 
faktor ist auf volle DM Beträge abgestimmt, d.h. für einen 
'Pfennigskat' geben Sie bitte '0.01' ein. Anschließend er¬ 
scheint sofort der derzeitige Spielstand der zwangsläugig 
noch keine Information beinhaltet. Machen Sie das erste 
Spiel und geben Sie anschließend die Nummer des Spielers 
ein, der das Solo gespielt hat. In der nächsten Zeile tra^ 
gen Sie dann dessen Punktzahl ein, die Sie mit einem Mi¬ 
nus-Zeichen versehen, wenn er verloren hat: zum Beispiel 
für einen einfachen Grand 24 bzw. -48. Nach dem Sie die 
Punkte eingegeben und die RETURN-Taste gedrückt haben er¬ 
scheint die neue Information auf dem Bildschirm, wobei für 
jeden Spieler die Punkte im Verhältnis zu den anderen 
Spielern angegeben werden und in der nächsten Zeile der 
Gewinn bzw. Verlust. Unter der Nummer und dem Namen des 
Spielers erscheint noch die Bemerkung 'GEBER' in Reverse 
dargeste11t. 

Das Notieren der Punkte ist in den meisten Fällen eine 
Glaubensfrage. Manche Leute schreiben nur positive, manche 
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nur negative Punkte auf. In vielen Fällen wird auch nicht 
aufgeschrieben sondern gleich gezahlt. Wer will kann sich 
das Programm entsprechend seinen Wünschen sehr einfach 
a bändern. 

Beenden Sie ihr Skatspiel, so lesen Sie bitte die zu zah¬ 
lenden bzw. zu vereinnahmende Beträge ab. Drücken Sie an¬ 
schließend die Taste ’E'. Der Rechner zeigt ihnen an, wie 
lange Sie gespielt haben und wieviele Spiele durchgeführt 
wurden. 


Doppelkopf 

Durch Anwählen einer '2' im Menü gelangen Sie zum Notiz¬ 
block für Doppelkopf. Geben Sie auch hier wieder - wie bei 
Skat - zunächst die Namen der 4 Spieler ein, und es er¬ 
scheint die übliche Bildschirminformation. Bei Doppelkopf 
wurde auf eine Umrechnung in DM-Beträge verzichtet. Zur 
Eingabe nach einem Spiel geben Sie bitte eine zweistellige 
Zahl ein, in der die beiden Nummern der Spieler, die ge¬ 
wonnen haben, enthalten sind. Anschließend fragt der Rech¬ 
ner nach der Punktzahl: geben Sie diese auch bitte wieder 
(mit anschließender RETURN-Taste) ein. Bei Solo muß unbe¬ 
dingt die zweite Stelle eine '0' sein. Geben Sie z.B. '10' 
ein, hat Spieler 1 ein Solo gemacht und die eingegebene 
Punktzahl wird für ihn mit 3 multipliziert und aufaddiert. 
Bei den anderen Spielern wird lediglich die einfache 
Punktzahl subtrahiert. 

Beenden können Sie die Eingabe mit '100' und auch hier 
werden - wie beim Skat - Spielzeit und Zahl der Spiele 
angeze igt. 


Canasta 

Wählen Sie im Hauptmenü die '3' an, so gelangen Sie zum 
Notizblock für Canasta. Anders als bei den vorhergehenden 
Spielen spielen zwei Gruppen gegeneinander. Geben Sie bit¬ 
te statt den Spielernamen nur Gruppennamen ein. 

In diesem falle bringt der Bildschirm nach dem Eingeben 
der Namen schon eine Information. Nämlich die Mindestmel¬ 
dung (50 Punkte je Gruppe) und den Betrag, der zum Gewinn 
fehlt - am Anfang natürlich 5000 Punkte. 

Da bei Canasta nicht die Punkte über einen Gewinner abge¬ 
rechnet werden, sondern jede Gruppe ihre eigene Punktzahl 
machen kann, müssen Sie zum Erfassen der Punkte erst eine 
Taste drücken. Geben Sie anschließend die Punkte für die 
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beiden Gruppen ein. Die eingegebenen Punkte werden dann 
aufsummiert, die Mindestmeldung entsprechend korrigiert, 
und die Angabe der restlichen Punkte bis zur Erreichung 
des Zieles wird korrigiert. Anschließend erfolgt sofort 
wieder die Ausgabe der errechneten Daten. Hat eine Gruppe 
die 5000-Punkte-Grenze überschritten so blinkt ihr Name in 
der Bemerkung 'Name hat gewonnen’ einige Zeit am Bild¬ 
schirm und es wird ins Menü zurückgesprungen. 


Programmlisting 


1000 REN 

1010 REN ■i¥. N 0 T I Z E L 0 C E * 

1020 REN ******ifj>:******:f***:+***H>:**^l«*ilf* 

10 30 P 0 E EE532806 
1040 P0EE::I32S 1 Z 
1050 PRIHT"S 
1060 REN 

1070 REN * NENLIE * 

1 @80 REN *********jt^***:f* 
1090 PRIMT" ngftMn g8!M 55EI3T —-> 1" 

1100 PR INT "gl EHOPPELEOPF .> 2" 

1110 PRINT":?!] CFlNflSTfl -—> 3" 

1120 GETflif: 

1130 R=.-VRL <R-f 

1140 I FR< 1 0RR::>3THEN 1 120 

1 150 0N R 1.3OTO 2;00030004000 

1160 GOTO1120 

2000 REN ************************************************ 
2010 REN * S E R T * 

2020 REN ************************************************ 
2030 INF'IJT" ngMnl NRNE DES ERSTEN SPIELERS" .;N 1 T :H1 T=:" 1 " fNlf 
2040 INPUT"iglH NFlNE DES ZWEITEN SPIELERS" ;N2:T 1-12$= "2 "+N2* 

2050 INPUT"iSg] NRNE DES DRITTEN :EP IELERS" l-EiT :N3T= "3 "+N3T 

2060 INPUT " :eM B] SPIELFRETOR" ;SF 
2070 T=TI 
2080 F=1 

2090 FR I NT " ZPüMg.Me!] " 

2100 Zl=l:=ZFl+1 

21 10 PR I NT"SP IELER " N1T N2;tN3T 
2120 PR 1 NT " " G1TG2TG3T 

2130 PRINT":«!®]" 

2140 PR INT" STRND " .. S1 S2.. S3" :g M i ! |]" 

2160 B1=::B1*SF 
2180 B2=B2*SF 
2200 B3=B3*SF 

2.^: 1 0 PR I NT " GEN I HN " B 1 B2 , E;:3 ; " gffi:®" 
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2220 PRINT"HIJMr'1ER DES SPIELERS ODER ENDE 1 ,.2..3E" 

L! 23101 UETPl-il 

2240 IFR:it:=" 1 "GOTO2290 
2250 I FFlä:= " 2 " DOTO2330 
2260 IF " 3 " GOT 02370 
2 2 7 0 IF' l-LL= " E " G O T Ü2440 
22”::i0 GOT02230 

2290 INFUT":M5I5I5;EI PUNKTE" ;P 

2300 S1:=S1+P 
2310 GOSUB2410 
2320 GOT02090 

2330 INPUT"iilüISBlMS PUNKTE" ;P 

2 3501 G 0 S U B 2 410 
2360 GOTO2090 

2370 INPUT'KISlSBMgl PUNKTE" ;P 

2 3 90:1 G 0 S U E5 2410 
24001 GOTO2E190 

2410 IFF=:1THENF=:2 :Gl;t=" " :024:="£f3EBER" rRETURN 
2420 IFF=:2THENF=:3 :G2:T=" " :G3^=:"laGEEER" sRETURN 
2430 IFF=:3THENF=1 :G3^==" " :G1*="J33EBER" :RETURN 
2440 T= I NT TI -T >,'3600 > 

2450 PRINT"2l!aS!!i;H!M3M51 SPIELZEIT ";T,,." MINUTEN 

2460 FIRINT" ■ SPIELE "rZP 

2470 F 0 RI = 1T 01 id 0 010i 
2480 NENT 
2490 RUN 

3000 REM ******4H*i+:*H'i*;+:***:+:********4:**:+i**i+:*******Hf*****4;** 
3010 REM * D 0 P P E L l< 0 PF * 

3020 REM iN******;<tJl':*#***4HH«**>h>M^***4Hip+:Hf*;'t'**iN*************i+:* 
3030 INPUT";i2Ma NPHME DES ERSTEN SPIELERS" ;NI4::N1 :T= " 1 "+N14 

3040 INPUT"a:S NFlME DES ZWEITEN SPIELERS" ;N24 :N24="2 "+N24 

3050 INPUT "MB] NAME DES DRITTEN SP IELERS" ; N34 : N34= "3 "-I-N34 

3060 INPUT"Sß] HOME DES VIERTEN SPIELERS";N44:N44="4 "+N44 

:3070 TrrTI 
3080 F=1 

3090 PRINT' TMPMeiM " 

3100 PR INTN1 :t- N24N3:TN4 4 
3110 PR INTG14G24G34 , G44 

3120 PRIWT"aMf|]" 

3130 PR INTS1 .. S2S3S4 ; " SMÜI" 

3140 Zf]=Zfl+l 

3150 PRINT"BITTE DIE NUMMERN DER GEWINNER RLS" 

3160 PR INT"ZWEISTELLIGE ZAHL RNGEBEN 
3170 PRINT"BEI SOLO ZWEITE STELLE > O <" 

3180 PRINT"EINGflBE -> 100 <- IST SPIELENDE" 

3190 INPUTI4E 

3200 IFWE==100THEN3420 

3210 IUPI-IT" ZrBlsMgUa WIEVIELE PUNKTE" ;P 

3220 I FWE==: 12THENS1 =S 1+P ; S2=S2+P ; S3r=S3-P : S4=S4-P 












NOTIZBLOCK 


161 


3230 IFWE::: 14THEHS1 =:S 1+ P ; S2=S2-P : S3==S3-P : S4:=:S4+P 
3240 I FWE= 13THEHS :l =S 1+P : S2=S2-P : S3=S3+P : S4 = S4-P 
32!:i:0 1 Fl'.IE==:21 THEHS1 ==S 1+P ; S2=S2+P : S3==S3-P : S4==S4-P 
3260 I FNE=23THENS 1 =S 1 -P : S2=::S2-hP : S3=S3+P : S4=S4-P 
32?'0 I FWE=24THENS 1 =S 1 -P : S2=S2+P : S3==:S3-P ; S4=S4 i- P 
3230 I FWE=31 THEHS 1 =31+P : S2=S2-P : S3=S3-i-P : S4=S4-P 
3290 :i:FWE==32TI-IENS:1=S1-P :S2==S2+P ^S3==S3+P ;;S4=S4-P 
3300 IF H E=3 4 T H E H S1 = S1 - P : S 2 := S 2 - P : S 3 == S :3 4^ P : S 4 = S 4 4- P 
3310 J: FHE=4 1 THEHS 1 =S 14 p i; S2==S2-P : S3=S3- P : 34=34+ 6' 
3320 IFWE=42THEHS1=S1-P:S2=S2+P:S3=S3-P:S4=S4+P 

3330 IFWE=43THEH31=S1.P:S2=S2-P;S3=S3+P:S4=S4+P 

3340 I FWE= :L 0THEHS1 =S 1 +3i‘l<P : S2=S2-P : S3=S3-P : S4 = S4-P 
3350 1 FWE=20THEHS2=:S2+3H';P : S 1 =3 1 -P : 33=S3-P : 34=34-P 
3360 IFHE=30THEHS3=S3+3*P:S1=S1-P:S2=S2-P:S4=34-P 
3:?' 01 IF H E=4 0 T H E H S 4=S 4+3 * P : S1 = S1 - P ; S 2=3 2 - P ; S 3=3 3 - P 


3380 IFF=1THEHF=2 = 

G1T=" 

" :G2T=”aGEE;ER" 

: 13 OT 0:30:90 

3390 IFF=2THEHF=3: 

32T=" 

" :G3T=".ig:;iEBER" 

: GRT 0:3 fl'90 

3400 IFF=3THEHF=4 : 

3:3T=" 

" :G4T="j3i:iEBER" 

: GUI 0:3090 

3410 IFF = 4THEHF = i : 

G4T=" 

" ;GlT="ja!:iEBER" 

:UU 1 u:30:90 


3420 

T= I HT < T' I -T ,■■■'3600 > 




3430 

PR I HT " CIl’ÄlPJaMaiilEI 

SP IELZE IT 

" ; T r " 

HI HUTEH 

5440 

:3450 

F'RIHT" SPIELE 

F'OR I = 1 TO 100001 

" ;ZR 




:3460 HEKT 
3470 RUI'-I 

4000 REH 44'M^*****Jl^*:'H’K:'H'MoH.K**4i*j|':****4H':**H^*:-K********i'H****** 
4010 REt'l * l: R H R S 1 R * 

4 02 0 R E H * :¥ i+i * * * i'h * i'lt * * ■¥ ■¥ * * * * * * * slf 4:4: ***** * * * * * * 

40:30 I HPLJT"ri sMi-U HRME DER ERSTEH GRUPPE" ;HIT 

4040 1HPUT":?MI HHME DER 2WEI TEH GRUPPE "rH2T 
4050 T:=TI 


4060 F=1 

4070 Hl=50 

414301 H2=:50 

40:30 H 3=501 

4 1013 Fl =50400 

4 1 10 f:32=F' 1 

4120 S1=0 

4130 32=0 

4140 l<L=0 

4150 PRIHT":i!3M!!!l!igS3" 

4 1 60 PR I H T " GRUPPE " " 3THHD " 2' HIHHELD " " FEHL " 

417 0 P RIH T H 1T , S1 ... H1 .. F1 
41S0 PRIHT"ai" 

4 19 0 P RIH T H 2 T.. S 2H 2F' 2 

4192 PRIHT"a] HEITER -■> TRSTE 

4194 GETRT 

419 6 IF' R T= " " T H E IFl 19 4 
4200 PF' I H l " MHW " 

4210 IHPUT" TRM i aM gj PUHKTE GRUPPE 1 ";P1 

4220 IHPUT"H5J PUHKTE GRUPPE 2 " ;F'2 


















162 


Kapitel 5.1 


4230 S1=S1+P1 

4240 S2=S2+P2 

4250 F1=F1-P1 

4260 F2=F2-P2 

4270 IFS1<0THENM1=0 

42S0 IFS 1>-1THENIFS1<1500THEHM1=50 

4290 I FS 1 >= 1500THENIFS1 <3000THENM 1 ==90 

4300 I FS 1 >=3000THEN I FS 1 <4500THEHM 1 == 120 

4310 I FS 1>=4500THEHI FS1<5000THENM1 = 150 

4320 I FS 1 >5000THEH I FS 1 >S2THEHGWS:=N 1 : GOTO4400 

4330 I FS2>-1 THEN I FS2< 1500THENM2==50 

4340 IFS2<0THEHM2=0 

4350 IFS2>=1500THEHIFS2<3000THENM2=90 

4360 I FS2>=3000THEH I FS2<:4500THENH2=: 120 

4370 IFS2>=4500THENIFS2<5000THENM2=150 

4380 IFS295000THEH1FS2>S1THEHGHT=N2T:GO T 04400 

4390 G 0 T 0 415 0 

4410 KL=KL+1 

4420 pp:INT" ".:GHT.;" HRT GEWONNEN:]" 

4430 F0RLK=1T025 

4440 ne;«:t 

4450 PRINT" □" 

4460 FOP:LK= 1 T025 
4470 NEIKT 

4480 IFKL<80GOTO4410 
449o P:UN 

60000 OPEN 1 815 : PR I NT# 1 S ; NOT IZELOCK " : CLOSE1 

60001 ShVE"NOTIZBLOCK" ..8 

60002 END 


ProgrammbeSchreibung 


Das Programm NOTIZBLOCK ist in 4 große Gruppen aufgeteilt: 

1000 - 1600 Vorspann und Menü 
2000 - 2490 Skat 
3000 - 3470 Doppelkopf 
4000 - 4480 Canasta 

Das kurze Programmstück zum Menü (Zeile 1090 - 1160) kann 

sehr leicht ergänzt werden: es sind ab Zeile 1610 weitere 
PRINT-Befehle mit entsprechendem Inhalt einzubauen, in 
Zeile 1140 der Wert '3' in der Plausibilitätsprüfung und 
die Kette der Sprungadressen in dem GOTO-Befehl in Zeile 
1150 zu ändern. 
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Skat 

Zunächst werden die Namen der 3 Spieler erfaßt. Hier er¬ 
gibt sich gleich eine Ergänzungsmöglichkeit: Umschreiben 
des Programmstückes auf 4 Skatspieler. Anschließend wird 
der Spielfaktor erfasst, der in diesem Programm auf die 
Berechnung nach DM abgestimmt wurde. Dann wird in Zeile 
2070 die momentane Zeit, die der Computer eingeschaltet 
ist, in der Variablen T festgehalten. 

Im weiteren Verlauf wird der erste Spieler als Geber ein¬ 
gesetzt (Zeile 2080), und der normale Programmablauf, der 
für jedes Spiel immer wieder durchlaufen wird (ab Zeile 
2090) beginnt, indem die Zahl der Spiele um eins erhöht 
wird. Dann werden die Namen der Spieler angezeigt und 
durch die Variablen Gl$, G2$ und G3$ wird der Geber am 
Bildschirm angezeigt. Anschließend wird noch der derzei¬ 
tige Spielstand ausgegeben, sowie die aktuell zu zahlenden 
bwz. einzunehmenden Beträge für jeden Spieler. Ab Zeile 
2220 beginnt die Eingabe eines Spielergebnisses, indem zu¬ 
nächst abgefragt wird, welcher Spieler sein Spiel gemacht 
hat. In Abhängigkeit von dieser Eingabe wird dann ver- 
zweigt. 

Die Auswertung läuft für alle Spiele ähnlich. Zunächst 
werden die Punkte am Bildschirm erfaßt, dann wird das Er¬ 
gebnis der Punktzahl des Spielers hinzuaddiert und in dem 
Unterprogramm ab Zeile 2410 der neue Geber ermittelt. Die 
Errechnung der aktuellen Beträge erfolgt während der näch¬ 
sten Anzeige. 

Zum Abschluß wird die Einschaltzeit des Computers bei 
Spielende festgestellt und die Differenz ermittelt, um in 
Minuten dargestellt zu werden. Außerdem wird noch die 
Gesamtzahl der Spiele ausgegeben. 


Doppelkopf 

Ähnlich wie beim Skat werden zuerst die Namen der Spieler 
erfaßt, die Zeit festgehalten und der Merker für den er¬ 
sten Kartengeber gesetzt, sowie anschließend die entspre¬ 
chenden Daten am Bildschirm ausgedruckt. 

Da beim Doppelkopf in der Regel immer zwei Spieler zusam¬ 
men spielen (außer bei Solo) gestaltet sich die Verteilung 
der Punkte etwas komplizierter. Zunächst werden die beiden 
Spieler als zweistellige Ziffer vom Bildschirm erfaßt, wo- 
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bei bei einem Solo die zweite Ziffer eine 0 sein muß. Dann 
werden die Punkte entsprechend den eingegebenen Ziffern 
gutgeschrieben bzw. vom Punktestand eines Spielers abgezo¬ 
gen. Bei einem Solo wird das Dreifache der eingegebenen 
Punktzahl dem Spieler gutgeschrieben und jeweils die ein¬ 
gegebene Punktzahl den anderen Spielern abgezogen. 

Ähnlich beim Skat wird anschließend wieder der neue Geber 
festgelegt und bei. Spielabschluß die Spieldauer und die 
Anzahl der Spiele a(jsgedruckt. 


Canasta 

Etwas anders als bei den beiden vorher beschriebenen Ab¬ 
rechnungsverfahren gestaltet sich die Behandlung der Ca¬ 
nasta-Abrechnung. Auch hier werden zunächst wieder zwei 
Namen erfaßt. Dedoch in diesem Fall die Namen für Grup¬ 
pen. Ähnlich ist auch noch das Festhalten der Einschalt¬ 
zeit des Computers. Anschließend werden die Mindestmeldun¬ 
gen (Ml, M2) der beiden Gruppen auf 50 gesetzt und die 
Fehlmenge für beiden Gruppen (d.h. die zu erreichende 
Punktzahl) auf 5000. Die Ausgabe erfolgt analog den beiden 
oben beschriebenen Blöcken, jedoch werden die Daten eines 
Spielers (Gruppe) nicht mehr senkrecht sondern waagerecht 
dargestelIt. 

Auch die Eingabe ist nicht vom Spieler abhängig, sondern 
jede Gruppe macht ja ihre Punkte. Ab Zeile 4230 werden die 
Summen entsprechend aktualisiert, wobei auch die Fehlbe¬ 
träge um den entsprechenden Betrag vermindert werden. 

Ab Zeile 4270 werden die neuen Mindestmeldungen für die 
beiden Gruppen festgelegt bzw. das Erreichen der Soll¬ 
punktzahl festgestellt. In diesem Falle wird der Variablen 
GW$ der Inhalt der entsprechenden Namensvariablen zugeord¬ 
net und zum Abschluß gesprungen. Anders als bei den beiden 
vorherigen Blöcken wurde hier eine blinkende Bildschirm¬ 
ausgabe realisiert, die den Namen des Gewinners anzeigt. 



NOTIZBLOCK 


165 


1- 

! 

! NOTIZBLOCK 

! 

-1 

j 

1000 - 4490 ! 

1 

! ! 

! Variablen: ! 

j ! 

1 1 

! Name 

Typ 

! Bereich 

! Bedeutung 1 

! A 

H 

! 0. . .3 

! Wert von A$ 1 

! A$ 

H 

! 1 Zeichen (1,2,3,! von Tastatur I 



! E) 

] i 

! Bl 

0 

1 Dezimalzahl 

1 Betrag (zu zahlender) I 



! 

1 1.Spie1er 1 

! B2 

0 

1 Dezimalzahl 

I Betrag (zu zahlender) I 



I 

1 2.Spieler ! 

! B3 

0 

1 Dezimalzahl 

! Betrag (zu zahlender) 1 



! 

! 3.Spieler I 

! F 

H 

! 1,2,3(,4) 

I Flag (Merker) für 1 



! 

1 Oeber ! 

! Fl 

0 

! 5000...0 

1 Fehlbetrag l.Oruppe 1 

! F2 

0 

I 5000...0 

1 Fehlbetrag 2.Cruppe I 

! 01$ 

H 

1 ’OEBER' 

1 wenn 1.Spieler mischt 1 

! 02$ 

H 

I 'OEBER' 

1 wenn 2.Spieler mischt 1 

! 03$ 

H 

1 'OEBER' 

1 wenn 3.Spieler mischt 1 

! 04$ 

H 

1 'OEBER' 

1 wenn 4.Spieler mischt 1 

! 0W$ 

H 

1 Nl$ oder N2$ 

1 Oewinner I 

! I 

H 

I 1... 10000 

! Laufvariable in Warte-! 

! 


! 

! schleife ! 

! KL 

H 

1 1...80 

! Zähler für Oewinner- ! 

! 


! 

! ausgabe bei Canasta ! 

! LK 

H 

I 1...25 

! Laufvariable ! 

! Ml 

0 

I 50,90,120,150 

! Mindestmeldung l.Crup.! 

! M2 

1 

G 

1 

! 50,90,120,150 

1 

! MindestmeIdung 2.Grup.! 

1 1 

! Nl$ 

! 0 

I Zeichenreihe 

! Name 1.Spieler/Cruppe ! 

! N2$ 

! 0 

1 Zeichenreihe 

! Name 2.Spieler/Cruppe ! 

! N3$ 

! 0 

1 Zeichenreihe 

! Name 3.Spieler ! 

! N4$ 

! 0 

1 Zeichenreihe 

! Name 4.Spieler ! 

! P 

! H 

! Dezimalzahl 

! Punkte des Spiels ! 

! PI 

! H 

1 Dezimalzahl 

! Punkte 1.Gruppe ! 

! P2 

! H 

1 Dezimalzahl 

! Punkte 2.Gruppe ! 

! S1 

! 0 

1 Dezimalzahl 

! Stand 1.Spieler ! 

! S2 

! 0 

1 Dezimalzahl 

! Stand 2.Spieler ! 

! S3 

! 0 

1 De^zimalzahl 

! Stand 3.Spieler ! 

! S4 

! 0 

1 Dezimalzahl 

! Stand 4.Spie1er ! 

! SF 

! 0 

1 Dezimalzahl 

! Spielfaktor(Skat)in DM! 

! T 

1- 

! 0 

1 Zeit 

! Computerzeit zu Beginn! 





















166 


Kapitel 5.2 


TI ! S ! 

! ! 

System variable 

! Zeit seit Einschalten 
! des Computers 

WE ! H ! 

j ! 

siehe Listing 

! WEr gewonnen hat 
! (Doppelkopf) 

ZA ! G ! 

Ganzzahlig 

! Zahl der Spiele 

Felder (Arrays): 

Name ! Dirnen. 

! Typ ! Bereich 

! Bedeutung 


! ! ! 


Unterprogrammaufrufe ; 

i n ! 

nach ! 

Zweck 



2310 ! 

2410 ! 

Geber feststellen 



2350 ! 

2410 ! 

Geber feststellen 



2 390 ! 

2410 ! 

Geber feststellen 



Verzweigungen 

nach außen : 



i n Ze 

! nach 

! Bedingung 

! Bemerkung 


2490 

! RUN 

! normales Ende 

! Skat 


3470 

! RUN 

! normales Ende 

! Doppelkopf 


4490 

! RUN 

! normales Ende 

! Canasta 



5.2 BIO (Biorhythmus) 

Von vielen Leuten wird der Biorhythmus durchaus als eine 
ernsthafte Angelegenheit angesehen. Im folgenden wollen 
wir kurz ein Programm vorstellen, wie der Biorhythmus er¬ 
rechnet werden kann. 


Bedienungsanleitung 

Nachdem Sie das Programm wie alle anderen vorher auch mit 
dem Namen ‘BIO* geladen und gestartet haben, bringt Ihr 
Rechner kurz die Meldung 'ICH DENKE’. In dieser Zeit wer¬ 
den einige benötigte Variablen-Eelder vorbesetzt. An- 
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schließend erfragt der Rechner Ihren Namen und getrennt 
Geburtstag, Geburtsmonat und Geburtsjahr. Geben Sie diese 
ein und drücken Sie jeweils anschließend die RETURN-Taste. 
Daraufhin erfragt der Rechner den Startmonat und das 
Startjahr, welches Sie auch bitte wieder eingeben und die 
Eingabe mit RETURN abschließen. 

Daraufhin wird die Differenz der beiden Kalenderdaten in 
Tagen errechnet und angezeigt. Sie können dann wählen, ob 
Sie die Grafik auf dem Bildschirm oder auf dem Drucker 
ausgegeben haben wollen. Geben Sie bitte entsprechend ’B’ 
oder 'D' ein. 


Programra-Listing 


1 000 
1010 
1020 
1 030 
1040 
1050 
1060 
1 070 
1080 
1030 
1 1 00 
1 1 10 
1120 
1130 
1140 
1 150 
1 160 
1170 
1180 
1 190 
1200 
1210 

1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 


REM ************************************************ 
REM * B I 0 R V T H M U 8 * 
REM ************************************************ 


REM ************************************************ 
REM * VORSPANN BESETZEN DER VARIABLEN * 
REN ************************************************ 

P 0 K E53280.0 
P0KE532S1 .,7 
PRINT"3 


REN-TAGE JE MONAT 


DIMMO < 12 

DATA31.. 2831.. 30.. 3130.. 31 .31 30,31.. 30.31 

F0RJ=1T012 

READMOC J::’ 

NEXT 


REM - MONATSNAMEN - 


DIMMO^C 12;:' 

DATAJANFEB ,MAEAPR , MAI.. JUNJULAUG..SEP ,OKTNOV.. DEZ 

F0RJ=1T012 

READMO^CJ;:- 

NEXT 

REM - KURVENWERTE FUER KOERPERLICHE KURVE - 

DIMDK<:23> 

F0RJ=1T023 

Hl=:2*frX23*J 
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1340 DK':;j::' = INT':;10*SIN>::H1::' + .5> 

1350 NEKT 
1360 : 

1370 REM - KURVEHWERTE FUER SEELISCHE KURVE - 

1380 : 

1390 DIMDS<2S::' 

1400 FORJ=17028 

1410 Hl=2*tr/28*J 

1420 DSCJ> = IHT'::10*SIH'::H1::' + .5::' 

1430 NEJCT 
1440 : 

1450 REM - KURVEHWERTE FUER GEISTIGE KURVE - 

1460 ; 

1470 DIMDGC33::' 

1480 Fi:iRJ=lT033 

1490 H1=2*it/33*J 

1500 DGCJ::' = IHTC10*SIHCH1::' + .5::' 

1510 HEXT 
1520 : 

1530 REM - RESTLICHE VRRIflBLEH BESETZEN UND ORTEN - 

1540 REM - VOM BILDSCHIRM ERFRSSEN - 

1550 : 

1560 M*="TRG " 

1570 dimk^cc-g:;' 

1580 INFUT’ THlBMBjJüMtg IHR NRME BITTE ";NiT 

1590 INPUT"SISiglS TRG DER GEBURT*;Bl 

1600 INPUT"£1 GEBURTSMONFIT ".;B2 

1610 INPUT"a GEBURTSJRHR “;B3 

1620 : 

1630 REM - GEBURTSJRHR EIN SCHRLTJRHR ? - 

1640 : 

1650 I FB3<: 100THENB3=B3+1900 
1660 IFB2>2THEN175@ 

1670 IFB2=2RNDB1=29THEN1750 
1680 Q1 = I NT C B3-1900/ J- 
1690 Q2= C B3— 1900 > .■■'4 
1700 IFQ1OQ2THEN1750 
1710 TR=1 
1720 : 

1730 REM - STRRTMONRT ERFRSSEN - 

1740 : 

1750 INPUT"ans START M0HRT";C2 
1760 INPUT "ä START JRHR ";C3 
1770 PRIMT"3" 

1780 IFC3<100THENC3=C3+1900 
1790 IFB3>C3THEN6060 

2000 REN *H|f**HK******i+i****4i***i+i*4i********i+i*i+i**H^*4i*******:f* 
2010 REN ALTER IN TAGEN ERRECHNEN * 

2020 REM **5KH|’i*Hfi*4iJ^**HK+;****HH***HK*i+i*****i+i*******Hfi********** 
2030 : 

2040 REM -.— RESTTRGE IN STARTJRHR- 
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2050 : 

2060 Tfl=TR+ <: NOB2 > -B1 > 

2070 I FB2.=: 12THEH 2140 
2080 Fi:iRJ=B2+11012 
2090 TR=TR+r'10<: j;:' 

2100 NEKT 
2110 : 

2120 REH - VOLLE JRHRE - 

2130 : 

2140 F0RJ:=B3+1T0C3-1 
2150 TR==TR+365 

2160 IFI NT J-1900 :j .■■'4 J = C J-1900 24THEHTR=TR+1 
2170 NEKT 
2130 : 

2190 REH - VERÖLEICHSJRHR - 

2200 : 

2210 FORJ=0TOC1-1 
2220 TR=TR+H0':: J> 

2230 HEXT 

2240 I FC 2>2THEH IFI NT C C 03-1900 .-M J = C 03-1900.•■•'4THENTR=TR+1 
2250 IF INT'::C3X4::'=:C3X4THENH0'::2::'=29 
2260 TR=TR+2 

3000 REH ***i+:*****i+:*********i'hi***i+:****i+:***i+:i+:***i+:********** 
3010 REH * WERTE RUFBEREITEH * 

3020 REH **J^^***^^^******J^i***?h**i+:*******i+:*****i+:*********i+:*** 
3030 PRIHT"RLTER IH TRGEN: ";TR 
3040 : 

3050 REH - RESTTRGE BERECHNEN - 

3060 : 

3070 RK:= C TR.-'23- I NT C TRX23>*23 
3080 RK=INT'::RK+. 1 > 

3090 RS='::TR/2S-INT’::TR/2S> >*2S 
3100 RS=INT'::RS+. 1 > 

3110 RG= TRX33-1 NT C TRX33 > > *33 
3120 RG=INT'::RG+. 1 > 

3130 PRINTRK.,RS.,RG 
3140 : 

3150 REH - RUSGREE VORBEREITEN - 

3160 : 

3170 L=0 
3130 D=0 
319 0 G 0 S U B304£i 
3200 L=L+1 
3210 F0R2Z=1T033 
3220 X$<.'22> = " " 

3230 HEXT 
3240 XS:<11> = " 1“ 

3250 : 

3260 REH - 

3270 : 

3230 NK=L+RK 


WERTE FUER RKTUELLE ZEILE ERRECHNEN 
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I FNK>23THENNK:=:NI<- 

-23 :G0Tü:3' 

290 

3300 
3":;l Id 

NS=L+RS 

IFHS>28THENNS=NS- 

-28:GO'TOS 

310 

3320 

3-530 

NG=4..+RG 

IFNG>33THENNG=NG- 

-33 : GOTijF: 

dijiüd 


3 34 Id : 

3350 REM - HORIZOHTRLEH RUSGRBEHERT BES'i IMMER 


3360 

: 


3370 

LJ 

il 

“h- 

;:nk 

3330 

't'2=DS 

:: MS 

3390 

't'3--=:DG 

:;NCi 

3400 

: 



3410 REM - RÜSGRBEZEICHEHREIHE BESETZER .-.. 

3420 : 

3430 + l 1 

3440 ::4T'3t' 2+1 1 ::':="i.93a" 

34!:© X;T'::V3+:l 1 ::':="aGSI’' 

3460 IF V1 =V2THEHXil V1 +1 1 > := " .:!l«3!" 

3470 IFV1 =:V3THENXT V1 + 11 :> = " afHS" 

3480 I FV2::=V3THEHX:if V3+11 > = " .a|oS'' 

3490 I FV2='i'3THEH IFV1 =V2THERRTV3+1 1 ü' == " sfiijiJiS" 

3300 : 

3510 REM - RBFRRGE RUF MORRTSENDE -------.. 

35201 : 

3530 D=D-i-l 

3540 IF D > M 0 C 2 > TU E R D=0 ;; G 0 T0 5030 

4000 REM ****^ii+;**i+i*i^<*****i^<***i^K******;^.:i+i***?^i**i^<***i+i**HH*?^i*H'ii|': 
4010 REM * RUSGRBE EINER ZEILE * 

4020 REM **i<K**;+i**********:'fi^fi:f***^fijIi^hi**T+:?>i?K**J>i***:+;i+;*****if*** 
4030 I FDL10THERPRI NTtt 1 ; 

4040 PRIRTill 

4050 PR I NT# 1 MOT C2 > " " ; C3-1900 r 
4060 F0RJ=1T021 
4070 PRINTIH ,,.XT':: j;:' ; 

4080 REXT 
4090 PRINT#1 
410 01 G 0 T0320iZi 

5000 REM i^:****;+;H(*****;+;:+R^*******?>ii+:iHi<<:+;*****?>i*i^::‘F'l'R^i+;i********iN 
5010 REM :•+; RBFRRGE EUER WEITEREN MuNRT * 

3020 REM 

3030 PR INT "WEITERER MONRT ? C J/N " 

5040 GETRT 

5050 IFRT="N"THEN END 
5060 IFRT=”J"THEN7030 
5070 G0TO5040 

6000 REM **He>i**4;?K*******Ho>i**iL+;i+4i*iK*it;#****i+iiF'l^*:+i:It**;+i***iIi* 
6010 REM .4 FEHLERMELDUNGEN * 

6020 REM 
6030 PRIHTttl 

6040 PRINT#! JAHR MUSS 1900 ODER MEHR SEIN !" 

6050 G 0 T02060 
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6060 FRIHT#! 

6070 PRIHT#! "STRRT-JRHR MUSS GROESSER SEIN " 

6GISG PRIHTttl "RLS: DRS GEBURTSJRHR ! 

60'::'0 OOTO2260 

7000 RE N jK i'K * Jli; i'N * * * * 4:H>; * # # * *:+::+) * * * * * i'H 

7010 REM * MDHRTSUEEERTRRG 

7020 R E M ***** * * * * * ******** * * * * * * * * i* * * *i ;************ * * * * * 

7030 C2“C2-i-l 

7040 I FC2<= 12TI-IEH3200 

7050 C2-1 

7060 C3-C3 +1 

V’070 IE I NT <: C3.-'4 > =C3,-'4THEHM0 < 2==29 :00X03200 
7080 M0':T!:>=2S 
70910 ü 0 T 0:3 2 0 R 

8000 R E M * * * *: * * * * * :* * * * * * * * * *: * * * * * * * * * * :* *: * * * *; * * * *: * * * * * * *: * * 
8010 REM * FlEFRRGE RUSGREEÜERRET UND * 

80201 REM * RUSGRBE: DES: KTIPF'E^S * 

8030 R E M * * *; * * * * * * * * * ;* * ** * * * * *: :* * * * * * * * * * * * * *: * * * * * * * * H« * * 
:3(;?40 PRINT 'DaSeMSFllFOlRBE RUF' IJRUCKER; <D::' ODEFR RUF" 

8050 INPIJT " BI LOSCH 1 r:::M < B > " ; FIGT 
3060 IF"RG:it:== " D " T FIEN0F:'E:N 1 4 :GO 108090 


807i!i;i 

IFRGT="B 

'THEHOPENl ...3 :L 

0TO8090 



GOTO:30i':|-0 




S090 

pf; I NT# 1 

'EIÜ-DIRGRRMM 

EUER 


S 1 001 

PRIHTttl: 

-:'RIFIT#1 "«!!:" ; 


„ 11 11 

8110 

PR: I NT# 1 




8120 

l-'R I N T # 1 ... 

'GEBURTSDFTrT..lM 

. "H31:" 

' ; MO:* B2 

8130 

PRINTttl 




8140 

PRINT#1 

'G= GEISTIG 



8150 

PRINT#1 

'K= koerperlk; 

H 


8160 

PR :i: NT# 1 

':3=:: SEELISCH" 



8170 

PR INT«^ 1 

T||i:r= KIOERPERLIi:: 

H -i SEEL IS 

::::H 

31 £i0 

PR I NT# 1 

'*== KOERPERLU: 

H f GEIST! 

li' 

8190 

PR I NT# 1 ... 

'o:= seelisch -I 

GEI ST IG 


y;:i:00 

PRINT#1 

'iN koerperlic 

H -f. SEEL IS 

::;H -i-- CEi:;; 

8210 

PR I FIT-# 1 




Ö220 

PRI NT#1 




8230 

PR I FIT# 1 

" 


- > < -1- > 

82401 

PR: :t FIT# 1 




82!ü0 

RETURFl 





Programmbeschreibung 

Das Programm BIO ist wie folgt aufgeteilt: 

1000 - 1790 Vorspann und Besetzen der Variablen 
2000 - 2260 Alter in Tagen errechnen 
3000 - 3540 Werte aufbereiteiT 














172 


Kapitel 5.2 


4000 

5000 

6000 

7000 

8000 


4100 Ausgabe einer Zeile 
5070 Abfrage für weiteren Monat 
6090 Fehlermeldungen 
7090 Monatsübertrag 

8250 Abfrage Ausgabegerät und Ausgabe des 
Kopfe s 


Vorspann und Besetzen der Variablen 

Da der Vorspann beim Programm Biorhythmus wegen des Er- 
rechnens der Werte für die Felder DK(),DS() und DG() sehr 
groß ist, wird am Rechner scherzhafter Weise zuerst die 
Meldung 'ICH DENKE' ausgegeben. Dann wird der Rahmen auf 
schwarz und der Bildschirmhintergrund auf gelb sowie die 
Schriftfarbe auf blau geschaltet. 

In den Zeilen 1150 bis 1190 werden die Tageszahlen für die 
12 Monate ins Programm genommen und in den Zeilen 1230 bis 
1270 die dreibuchstabigen Kurzbezeichnungen der Monate. 

In den Zeilen 1310 bis 1350, 1390 bis 1430 und 1470 bis 
1510 werden aufgrund der Sinusfunktion jeweils Hilfsfelder 
für den körperlichen, seelischen und geistigen Rhythmus 
gesetzt. Diese Felder geben nachher die Abweichung vom 
Nullpunkt an. Da der Sinus von 0 bis 2*PI läuft, muß er 
noch entsprechend in 23, 28 bzw. 33 Teile unterteilt wer¬ 
den. Die Funktion 'INT(10*SIN(Hl)+.5)' multipliziert den 
entsprechenden Sinuswert mit 10 und rundet ihn auf die 
nächste ganze Zahl. Dies ist wichtig, da eine Druckzeile 
später aus einzelnen Zeichen besteht und für jede Druck¬ 
zeile so die entsprechenden Werte einem Zeichen fest zuge¬ 
ordnet werden können. 

Als nächstes wird die Variable zur Ausgabe der Druckzeile 
für 33 Zeichen Breite dimensioniert. Obwohl im Programm 
nur 21 Zeichen gebraucht werden, wurde hier eine größere 
Dimensionierung gewählt, da man bei entsprechender Änder¬ 
ung der Konstanten 10 in den Zeilen 1340, 1420 und 1500 
auch eine breitere Ausgabe erzeugen kann. Die Ausgabe wur¬ 
de wegen der Breite des Bildschirms so schmal gehalten. 

In den Zeilen 1650 bis 1700 wird geprüft, ob das Geburts¬ 
jahr ein Schaltjahr ist. Dazu wird zunächst geprüft, ob 
bereits der 29.02. in einem Schaltjahr eingegeben wurde. 
Ein Schaltjahr liegt bekanntlich vor, wenn eine durch vier 
teilbare Oahreszahl auftritt (von irrelevanten Anomalien 
abgesehen). D.h. die Division durch 4 muß den Rest 0 erge¬ 
ben. Dies wird über einen kleinen Umweg mit Hilfe der In- 
teger-Funktion herbeigeführt. 
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Als letztes Programmstück itn Vorspann wird noch der Start¬ 
monat, für den das Rhythmogramm erstellt werden soll, er¬ 
faßt. 


Alter in Tagen berechnen 

Ist das Geburtsjahr ein Schaltjahr, so hat die Variable TA 
(die das Alter in Tagen beinhaltet) bereits den Wert 1, 
sonst den Wert 0. In Zeile 2060 werden die restlichen Tage 
des Geburtsmonates aufsummiert. War der Geburtsmonat be¬ 
reits der Dezember, so wird zur Errechnung der vollen Oah- 
re übergegangen, ansonsten werden noch die einzelnen Tage 
der Monate bis zum Jahresende aufsummiert (Schleife von 
Zeile 2080 bis Zeile 2100). 

In der Schleife von Zeile 2140 bis 2170 werden für jedes 
volle Jahr 365 Tage hinzuaddiert und in Zeile 2160 wird 
zusätzlich noch geprüft, ob das gerade durchlaufene Jahr 
ein Schaltjahr ist. Hier gibt es sicher auch andere Be- 
rechnungsmod i. 

Zum Schluß wird in den Zeilen 2210 bis 2260 noch die Zahl 
der Tage im aktuellen Vergleichsjahr bis zum Start der 
Ausgabe des Biorhythmus' hinzuaddiert. 


Werte aufbereiten 

Zunächst wird das Alter in Tagen ausgegeben und dann für 
den Starttag quasi die mathematische Funktion Modulo (Rest 
bei Division) für die Werte 23, 28 und 33 gebildet. Diese 
Werte werden auch auf dem Bildschirm ausgegeben. 

Als Zähler für die Anzahl der bereits ausgedruckten Tage 
fungiert die Variable L und als Zähler für die Tage des 
aktuellen Monats die Variable D. In Zeile 3190 wird ein 
Unterprogramm aufgerufen, in dem das Ausgabegerät erfragt 
und der Kopf ausgegeben wird. 

In Zeile 3200 beginnt eine prinzipielle Endlosschleife, 
indem zunächst der Zähler für die ausgegebenen Tage erhöht 
wird und anschließend das Feld zur Ausgabe der einzelnen 
Zeichen einer Zeile mit Leerzeichen vorbesetzt wird. In 
die Mitte des Feldes wird zur Vereinfachung der Ablesung 
noch ein senkrechter Strich eingetragen. Wenn Sie eine 
breitere Ausgabe auf Papier wünschen, muß auch die Anwei¬ 
sung in Zeile 3240 entsprechend geändert werden. 

In den Zeilen 3280 bis 3330 werden den Variablen NK, NS 
und NG die aktuellen Werte für die drei verschiedenen 
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Rhythmen bei der entsprechenden Ausgabezeile zugewiesen. 
Wurden die Werte 23, 28 bzw. 33 überschritten, so werden 
diese Werte zunächst noch subtrahiert. 

Die Variablen Yl, Y2 und Y3 enthalten die Position zur 
Ausgabe innerhalb der Zeile. 

In den Zeilen 3430 bis 3490 werden die entsprechenden Zei¬ 
chen in der Ausgabezeile mit den Kennzeichen für die ver¬ 
schiedenen Rhythmen K (körperlicher Rhythmus), S (seeli¬ 
scher Rhythmus) und G (geistiger Rhythmus) versehen. Fal¬ 
len zwei oder drei Werte zusammen, so werden entsprechend 
ein gefüllter Punkt, ein Stern, ein Ring oder ein 'schraf¬ 
fiertes Feld’ ausgegeben. 

In Zeile 3530 wird der Monatzähler erhöht und in Zeile 
3540 wird abgefragt, ob das Monatsende erreicht ist. In 
diesem Falle wird der Monatszähler annulliert und zur Ab¬ 
frage übergegangen, ob noch ein weiterer Monat ausgegeben 
werden soll. 

Ausgabe einer Zeile 

Eine Ausgabezeile für den Biorhythmus besteht aus dem Tag 
(Zeile 4030 und 4040), dem Monat (in dreibuchstabiger 
Kurzbezeichnung) und dem Oahr (Zeile 4050). Zeile 4030 
dient nur der Tabellierung der Tageswerte. In der Schleife 
von Zeile 4060 bis 4080 werden die oben errechneten Zei¬ 
chen ausgegeben. Auch die Schleife in Zeile 4060 muß er¬ 
weitert werden, wenn Sie eine breitere Ausgabe wünschen. 

Abfrage für weitere Monate 

Soll ein weiterer Monat ausgegeben werden, so wird zu¬ 
nächst ein Programmstück angesprungen, bei dem ein Monats- 
übertraq durchqeführt wird, ansonsten wird das Programm 
beendet. 

Fehlermeldungen 

Die erste Fehlermeldung wird nicht benutzt, da in dem 
Programm automatisch eine 1900 addiert wird, wenn die Zahl 
kleiner als 100 ist. Die Berechnung des Oahres mit der 
führenden '19' wird im Programm nirgendwo verwendet, je¬ 
doch soll Ihnen die Möglichkeit gegeben werden, das Oahr 
in seiner vollen Zahllänge angeben zu können. 

Für Witzbolde die einen Biorhythmus vor ihrem Geburtstag 
ausdrucken wollen, dient die zweite Fehlermeldung. 



BIO 


175 


Monatsübertrag 

Zunächst wird der Zähler für den aktuellen Monat hochge¬ 
zählt. Ist dieser kleiner oder gleich 12, so kann mit der 
Ausgabe des Biorhythmus' normal fortgefahren werden, an¬ 
sonsten muß die Monatszahl auf 1 gesetzt und das Jahr ent¬ 
sprechend erhöht werden. Ist das neue Jahr ein Schaltjahr, 
so muß entsprechend die Tageszahl im Monat Februar auf 29 
gesetzt werden. Ansonsten wird sie sicherheitshalber auf 
28 zurückgesetzt und es wird auch zur weiteren Ausgabe des 
Biorhythmuses übergegangen. 


Abfrage Ausgabegerät und Ausgabe des Kopfes. 

Nach einer Bildschirmmeldung wird entsprechend die Datei 1 
zur Ausgabe geöffnet (Gerät Nr. 3 ist der Bildschirm, Ge¬ 
rät Nr. 4 ist der Drucker). Im Kopf werden der Name und 
das Geburtsdatum angegeben, sowie eine Übersicht über die 
in der Tabelle verwendeten Zeichen. 
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1000 - 8250 

Variablen: 

Name ! 

Typ 

! Bereich 

! Bedeutung 

A$ ! 

H 

! 1 Zeichen (O/N) 

! von Tastatur 

AG$ ! 

H 

! 1 Zeichen (D/B) 

! Ausgabegerät 

Bl ! 

G 

! 1. . .31 

! Geburtstag 

B2 ! 

G 

! 1...12 

! Geburtsmonat 

B3 ! 

G 

! Ganzzahlig 

! Geburtsjahr 

C2 ! 

G 

! 1...12 

! Startmonat 

C3 ! 

G 

! Ganzzahlig 

! Startjahr 

D ! 

H 

! 1...32 

! Zahl der ausgegebenen 

! 


! 

! Tage je Monat 

3 ! 

H 

! 1...12 / 1...23 

! Laufvariable 

! 


! 1...28 / 1...33 

! 

1 


! B2+1...12 etc. 

! 

L ! 

H 

! Ganzzahlig 

! Zahl der ausgegebenen 

1 


! 

! Tage 

N$ ! 

G 

! 'Namen' 

! Name 

NG ! 

G 

! Ganzzahlig 

! aktueller Wert geisti- 

! 


1 

! ger Rhythmus 













176 


Kapitel 5.2 


NK 

! 

! 

G 

! Ganzzahlig 
! 

! aktueller Wert körper- 
! liehen Rhythmus 

NS 

! 

! 

G 

! Ganzzahlig 
! 

! aktueller Wert seeli- 
! scher Rhythmus 

RG 

! 

! 

G 

! 1...33 
! 

! Resttage geistiger 
! Rhythmus 

RK 

! 

1 

G 

! 1...23 
! 

! Resttage körperlicher 
! Rhythmus 

RS 

! 

! 

G 

! 1...28 
! 

! Resttage seelischer 
! Rhythmus 

Ql 

! 

! 

H 

! Ganzzahlig 
! 

! Hilfsvariable für 
! Schaltjahr 

Q2 

j 

! 

H 

! Ganzzahlig 
! 

! Hilfsvariable für 
! Schaltjahr 

TA 

! 

G 

! Ganzzahlig 

! Alter in Tagen 
! 'normierter' Sinuswert 
! zu akt. körper1.Rhyth. 

Y1 

! 

! 

H 

1 -10...10 
! 

Y2 

j 

i 

H 

! -10...10 
! 

! 'normierter' Sinuswert 
! zu akt. seel. Rhythmus 

Y3 

! 

1 

H 

! -10...10 
j 

! 'normierter' Sinuswert 
! zu akt. geist.Rhythmus 

ZZ 

! 

H 

! 1...33 

! Laufvariable für zei- 


i 


! 

! chenweise Ausgabe 


Felder (Arrays): 


! Name 

Dirnen. ! 

Typ 

* 

Bereich 

! Bedeutung ! 

! M0() 

1. 

. .12 

G 

! 

28...31 

! Zahl der Tage je! 





! 


1 Monat ! 

! M0$() 

1. 

. .12 

G 

! 

OAN,...,DEZ 

i Monatsbezeichn. 1 

! DG() 

1. 

. .33 

G 


-10...10 

1 'normierte' 1 





! 


1 Sinuskurve für 1 





! 


I geistigen Rhyth-I 





! 


1 mus 1 

! DK() 

1. 

. .23 

G 


-10...10 

! 'normierte' 1 





! 


1 Sinuskurve für 1 





! 


1 körperlichen 1 







I Rhythmus ! 

! DS() 

1. 

. .28 

G 

! 

-10...10 

1 'normierte' ! 

! 




1 


1 Sinuskurve für ! 





! 


I seelischen 1 





! 


I Rhythmus 1 

! X$ 

1. 

. .33 

G 

! 

K,S,G,Sonderz. 

1 Ausgabe der Da- I 

! 


(21) 


! 


1 ten zeichenweise! 


I 
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I = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 

! Unterprogrammaufrufe : 

! in ! nach ! Zweck 

! 3190 ! 8040 ! Ausgabegerät erfragen und Kopf ausgeben 

! Verzweigungen nach außen : 

! in Ze ! nach ! Bedingung ! Bemerkung 

! 5050 ! END ! A$ = 'N' ! Normales Ende 
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Anhang 1 


Tabelle der Parametertypen: 


A - Ausgabeparameter von diesem Unterprogramm 
E - Eingabeparameter für dieses Unterprogramm 
G - Globale Variable 
H - Hilfsvariable 

P - Aufruf Parameter an Unterprogramm 
R - Rückgabeparameter von Unterprogramm 
T - Transienter Parameter (ist in einem Unterprogramm 
gleichzeitig Eingabeparameter (E) und Aufrufpara¬ 
meter (P) bzw. A und R 


Globale Variablen gibt es zwar bei Basic nicht, da Basic 
keine block-orientierte Sprache wie z.B. PL/1 ist, aber in 
diesem Buch ist dieser Begriff für Variablen verwendet 
worden, die man in anderen Sprachen global definiert 
hätte. 


Da der verwendete Typenraddrucker die Zeichen 'größer als’ 
und 'kleiner als' nicht drucken kann, wurden diese Zeichen 
wie folgt ersetzt: 


NE - Not Equal 
GT - Greater Than 
LT - Less Than 
GE - Greater or Equal 
LE - Less or Equal 


/ ungleich 
/ größer als 
/ kleiner als 
/ größer gleich 
/ kleiner gleich 
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Die Farbcodes des Commodore 64: 


FRREE 

Pi:il<E-4-JERT 

TRSTE 

ZEICHEN 

SCHWRRZ 

0 

CTRL 1 

■ 

WEISS 

1 

CTRL 2 


ROT 

2 

CTRL 3 

Si 

TLIERKIS 


CTRL 4 

k. 

VIOLETT 

4 

CTRL 5 

m 

ÜRIJEW 

CJ 

CTRL 6 

ii 

BL-flU 

S 

CTRL 7 

m 

tat 

GELB 

1 

CTRL S 

a 

ÜRRNGE 

;rj 

C= 1 

a 

BRRUH 

3 

C= 2 

K 

HELLROT 

10 

C= 3 


GRRU 1 

1 1 

C:= 4 


GRRU 2 

12 

C== 5 


HELLGRUEW 

13 

C= 6 

■ 

HELLBLRÜ 

14 

l"'-_ l? 

□ 

GRRU 3 

15 

C= 8 

Ml 

•HH 
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Anhang 3 


In den Programmlistings tauchen folgende Bildschirmsteuer¬ 
zeichen auf: 


BILOSCHIRHSTEUERCODES 


ZEICHEN CODE 

CURSOR HF1CH UNIEH 

CURSOR HOCH OBEN □ 

CURSOR HFiCH RECHTS SJI 

CURSOR HOCH LINKS KH 

DEL CZEI. LOESCHEN) U 

HOHE '::CRSR OBEN LINKS) Sil 


CLR CBILDSCHIRH LOESCHEN) □ 




Die anderen Bände der Serie: 


Band 1: Leitfaden für den Erstanwender 

Die grundlegenden Begriffe der Programmierung und die 
Eigenschaften des Commodore 64 werden an einprägsamen 
Beispielen dargestellt: Sprites und hochauflösende Grafik. 
Mit Maschinenprogrammen für Grafikbefehle und Assembler. 


Band 3: Leitfaden für Fortgeschrittene 


- Multi-Color-Sprites 

- Multi-Color-Grafik 

- Sound-Generator 

- Disassembler 

- Datenverwaltung mit der Floppy 

- Deutsche Fehlermeldungen 


Band 4; Assembler / Disassembler 


Der Assembler aus Band 1 und der Disassembler aus Band 3 
werden um einiges ergänzt, z.B. durch Aneinanderbinden von 
Source-Files, und alles wird natürlich genauer erklärt. 


Band 5: Simon *s-Basic 

Nützliches im Umgang mit Simon's Basic. Ein erweitertes 
und kommentiertes Handbuch. 


Band 6: Spiele 


Nochmals Spiele. Diesmal mit Maschinenprogrammen und Mu¬ 
sik, sowie vielen Kniffen. 



Lieferbare Markt & Technik-Titel 


CP/M und Wordstar Anwendeitiandbuch 
Best.-Nr. MT 310 DM 29,80* 

Software-Auswahl leicht gemacht 

Best.-Nr. MT 340 DM58,—* 

Hardware-Auswahl leicht gemacht 

3. überarbeitete und aktualisierte Ausgabe 

1984/85 

Best.-Nr. MT 350 DM 58,—* 

Personal Computer Lexikon 

Best.-Nr. MT 390 DM 19,80* 

Planen und kalkulieren mit 
VIsICalc 

Best.-Nr. MT 450 DM 32,—* 

Basic ohne Probleme: 

Bd. 1 Untenweisung 

Best.-Nr. MT 480 DM 36,—* 

Basic ohne Probleme: 

Bd. 2 Übungen 

Best.-Nr. MT 490 DM26,—* 

Basic ohne Probleme: 

Bd. 3 Programmentwicklung und 
Datenverwaltung 

Best.-Nr. MT 500 DM44,—* 

Basic ohne Probleme: 

Bd. 4 Allgemeine Dateiverwaltung am 
praktischen Beispiel 

Best.-Nr. MT 514 DM53,—* 

Basic-Programme für CBM/VC-20-Computer 
Best.-Nr. MT 501 DM 32,—* 

Planen und kalkulieren mit Multiplan 

Best.-Nr. MT 502 DM58,—* 

Der IBM-Personal Computer 

Best.-Nr. MT 503 DM53,—* 

Datenkommunikation und Lokale 
Computer-Netzwerke 

Best.-Nr. MT 504 DM58,—* 

Software richtig eingekauft 

Best.-Nr. MT 505 DM 34,—* 

Wörterbuch der Daten- und Tele¬ 
kommunikation 

Best.-Nr. MT 506 DM38,—* 

Multiplan richtig eingesetzt 

Best.-Nr. MT 507 DM58,—* 


Multiplan richtig eingesetzt — 

Beispiele auf Diskette (5/4”, IBM-PC mit 
MS-DOS 2.0) 

Best.-Nr. MT 623 DM 48,— 


Personal Computer — das intelligente 
Werkzeug für jedermann 
Best.-Nr. MT 508 


DM 53,— 


SuperCalc richtig eingesetzt 

Best.-Nr. MT 511 DM58,— 


SuperCalc richtig eingesetzt — 

Beispiele auf Diskette (5/4”, IBM-PC mit 
MS-DOS 2.0) 

Best.-Nr. MT621 DM48,— 


Programme und Tips für VC-20 

Best.-Nr. MT513 DM38,— 


Das VC-20 Buch 
Best.-Nr. MT 516 


DM49,— 


Das VC-20 Buch 
Best.-Nr. MT 581 


Beispiele auf Kassette 

DM 19,90 


Das VC-20 Buch — Beispiele auf Diskette 
Best.-Nr. MT 582 DM 29,90 


Eln-Chlp-MIkrocomputer-Handbuch 

Best.-Nr. MT 517 DM 58,— 


Die Btx-Fibel 

Best.-Nr. MT 519 DM 29,80 


Das Datenbanksystem dBASE II 
Best.-Nr. MT524 

Basic-80 und CP/M 
Best.-Nr. MT 525 


DM 68,— 


DM 48,— 


Einführung in Datenbanksysteme mit 
dBASE II 

Best.-Nr. MT 526 DM66,— 


Einführung in Datenbanksysteme mit 
dBASE II — Beispiele auf Diskette 
(5/4”, IBM-PC mit MS-DOS 2.0) 

Best.-Nr. MT 622 DM 48,— 


dBASE II richtig eingesetzt 

Best.-Nr. MT 541 DM68,— 


dBASE II richtig eingesetzt — Beispiele 
Diskette (5/4”, IBM-PC mit MS-DOS 2.0)) 
Best.-Nr. MT 544 


auf 


DM48,— 


Einführung in C 
Best.-Nr. MT 561 


DM69,— 


Mit Lotus 1-2-3 zur integrierten Problem¬ 
lösung 

Best.-Nr. MT562 DM68,— 


• inkl. MwSt. zuzügl. Versandkosten 

Hans-Pinsel-Straße 2 - 8013 Haar bei München - Telefon 4613-220 
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Basic-Dialekte im Vergleich 

Best.-Nr. MT 564 

DM32,—' 

Das Commodore 64-Buch, 

Bd. 1: Leitfaden für Erstanwender — 
mit Assembler 

Best.-Nr. MT 591 

DM 48.— ' 

Das Commodore 64-Buch, 

Bd. 1: Beispiele auf Diskette 

Best.-Nr. MT 592 

DM58,— ' 

Das Commodore 64-Buch, 

Bd. 2: Basic-Spiele 

Best.-Nr. MT 593 

DM38.—' 

Das Commodore 64-Buch, 

Bd. 2: Beispiele auf Diskette 

Best.-Nr. MT 594 

DM 58,—' 

Das Commodore 64-Buch, 

Bd. 3: Leitfaden für Fortgeschrittene 
Best.-Nr. MT 595 

DM 38.— ' 

Das Commodore 64-Buch, 

Bd. 3: Beispiele auf Diskette 

Best.-Nr. MT 596 

DM 58,—' 

Das Commodore 64-Buch, 

Bd. 4: Leitfaden für Programmierer — 
Assembler — Disassembler 

Best.-Nr. MT 597 

DM38,—' 

Das Commodore 64-Buch, 

Bd. 4: Beispiele auf Diskette 

Best.-Nr. MT 598 

DM 58,—' 

Das Commodore 64-Buch, 

Bd. 5: Simon’s Basic 

Best.-Nr. MT 599 

DM 38,—' 

Das Commodore 64-Buch, 

Bd. 5: Beispiele auf Diskette 

Best.-Nr. MT 600 

DM 58,—' 

Das Commodore 64-Buch, 

Bd. 6: Spiele 

Best.-Nr. MT 619 

DM38,—' 

Das Commodore 64-Buch, 

Bd. 6: Beispiele auf Diskette 

Best.-Nr. MT 620 

DM58,—’ 

Computerspiele und Wissenswertes — 
Commodore 64 

Best.-Nr. MT 601 

DM 29,80' 

Computerspiele und Wissenswertes — 
Commodore 64: Beispiele auf Diskette 
Best.-Nr. MT 602 

DM38,— ’ 


Das große Spielebuch Commodore 64 


Besl.-Nr.MT603 

DM 29,80 

Das große Spielebuch Commodore 64: 
Beispiele auf Diskette 


Best.-Nr. MT 604 

DM38,— 

Software-Schnellkurs: CP/M 

Best.-Nr. MT 605 

DM 37.— 

Software-Schnellkurs: MailMerge 
Best.-Nr. MT 606 

DM 37,— 

Software-Schnellkurs: dBASE II 

Best.-Nr. MT 607 

DM 37,— 

Software-Schnellkurs: SuperCalc 
Best.-Nr. MT 608 

DM 37,— 

Software-Schnellkurs: Wordstar 

Best.-Nr. MT 609 

DM 37,— 

Software-Schnellkurs: Multiplan 

Best.-Nr. MT 610 

DM 37,— 

Software-Schnellkurs: Lotus 1-2-3 
Best.-Nr. MT 611 

DM 37,— 

Software-Schnellkurs: CP/M 86 

Best.-Nr. MT 615 

DM 37,— 

Mehr als 32 Basic-Programme für den 
Commodore 64 


Best.-Nr. MT 61364 

DM 49,— 

Mehr als 32 Basic-Programme für den 
Commodore 64: Beispiele auf Diskette 


Best.-Nr. MT 614 

DM 48,— 

Mehr als 32 Basic-Programme für den IBM-PC 

Best.-Nr. MT 624 

DM 68,— 

Mehr als 32 Basic-Programme für den IBM-PC: 
Beispiele auf Diskette ( 5 '/” mit MS-DOS 2.0) 

Best.-Nr. MT 625 

DM58.— 

MS-DOS 

Best.-Nr. MT 616 

DM 58,— 

Einführung in Förth 

Best.-Nr. 635 

DM 58.— 

Lotus 1-2-3 richtig eingesetzt 

Best.-Nr. MT 637 

DM68,— 


Lotus 1-2-3 richtig eingesetzt 
Beispiele auf Diskette ( 5 / 4 ”, IBM-PC mit 
MS-DOS 2.0) 

Best.-Nr. MT 638 DM 58,— 


• inkl. MwSt. zuzUgl. Versandkosten 

MaiktdTechnik 
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Das Commodore 64-Budi 
Band 2: Basic-Spiele 


Diskette einlegen, Progranini laden — und spielen. 
So sind die meisten Spielprogranime angelegt. Wenn 
diese Programme in einem Buch abgedruekt stehen, 
muß man sie außerdem noeh abtippen. 

Spielen können Sie mit den in diesem Bueh aut'ge- 
führten Programmen in der dargestellten Form 
natürlieh aueh. Wir wollten jedoch noeh etwas weiter 
gehen: Spielend programmieren lernen. 

Bei den aufgeführten Spielen werden immer wieder 
Tips gegeben, wo und wie sie lu verbessern sind. Die 
Durchführung ist dann eine Übung für SIE. Diese 
Programmänderungen gehen 

• vom einfachen Umschreiben häufig auftretender 
Stellen in Unterprogrammen, 

• über optische Änderungen der Spielanzeigen, 

• bis hin zu tiefgreifenden Veränderungen der 
Spielstruktur. 

Wenn Sie die Vorgehensweise bei der Erstellung eines 
Spieles einmal gesehen haben, sind Sie in der Eage, ein 
Brettspiel in ein Computerprogramm umzusetzen. 


10 ausgewählte Programme mit verschiedenen Schwie¬ 
rigkeitsgraden bieten sicherlich für jeden etwas, 
ln diesem Band sind enthalten: 

Denkspiele, Wirtschaftsspiele, Kartenspiele, Glücks¬ 
spiele. 

W'eiter einen »Notizblock« für Skat, Canasta and 
Doppelkopf sowie einen Biorhythmus. 

Weitere Spiele finden sich in Band 6. Dort wird auch 
ein komplettes Spiel in Maschinencode vorgestellt. 
Die Bände 1, 3 und 7 dienen dem Kennenlernen 
IHRES Commodore 64. Auf den Grundelementen 
aufbauend, steigen diese Bände immer tiefer in das 
System mit seinen bemerkenswerten Eigenschaften 
(Sprites, hochaullösende Grafik, Sound-Generator) 
ein. 

Band 4 (Leitfaden für Systemprogrammierer) und 
Band 5 (Simon’s Basic) widmen sich zwei speziellen 
Themen: der Maschinenprogrammierung und der 
weitverbreiteten Basicerweiterung. Zusätzlich sind zu 
jedem Band Disketten erhältlich, die dem Leser das 
Eintippen der beschriebenen Beispiele ersparen. 
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